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0001 
0002 



NAM 



TTY005 



lOl** COPYRTGHT CONTROL DATA CORP 197** 
COSY 3.1 



'♦♦00001 
00002 



ono* 

0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
001* 
0015 



♦ ♦♦♦♦00005 
»*»***»*** REVISION RECORD »»»»•»••♦•••*••#• ♦♦♦♦00006 

♦ ♦♦♦♦00007 

♦ MOflAYR VERSIDN WHAT OONE ♦ WHY ♦ AND HHO DID IT ••♦•00008 

♦ ••♦♦00009 

♦ 03207* V 3.1 SYSTEM RELEASED ♦♦♦♦00010 

♦ RECODED SECTIONS 5t6.7,8 TO EXECUTE ON ♦♦♦♦00011 

♦ A 1712 OR 1713 ♦♦♦♦00012 

♦ AOOEO OPERATOR MESSAGE ♦♦♦•00013 

♦ " ♦•••0001* 

+ + + * + * + + + * + + + + + * + + * + + * + + + * f*W* + „„*W+ + + „„*WW+*** + + ++W* + + ** + * Q QQ i5 



0017 
0010 
0019 
0020 
0021 
0022 
0023 
002* 
0025 
0026 
0027 
0028 
0029 
0030 
0031 



•1711-12-13 FUNCTION CODES 



* 


A0=1- 


CLEAR CONTROLLER 


* 


Al=l- 


CLEAR INTERRUPTS 


« 


A2=l- 


DATA INTERRUPT REQUEST 


* 


A3=l- 


SELFCT EOP INTERRUPT 


# 


A*=l- 


SELECT ALARM INTERRUPT 


* 


A5=l- 


START MOTION 


* . 


A6=l- 


STOP MOTION 


+ 


A8=l- 


SELECT WRITE MODE 


» 


A9=l- 


SELECT READ MOOE 


* 


A10*i- 


SELECT <K> MODE 


* 


All=l- 


SELECT <KT1 MOOE 


♦ 


A12=l- 


SELECT (T) MODE 


» 


A13sl- 


SELECT (TTRI MOOE 


* 


Al**l- 


SELECT ITTSJ MODE 



00017 
00018 
00019 
00020 
00021 
00022 
00023 
0002* 
00025 
00026 
00027 
00028 
00029 
00030 
00031 



0033 
003* 
0035 
0036 
0037 
0038 
0039 
00*0 
00*1 
00*2 
00*3 



♦1711-12-13 STATUS - Q0=1 



* 


A0 = i- 


* 


Al = l- 


* 


A2 = l- 


* 


A3-1- 


* 


A* = l- 


* 


A5=l- 


* 


A6 = l- 


* 


A9=i- 


* 


A10 = l 


* 


Alt = l 



READY 

BUSY 

INTERRUPT 

OATA INTERRUPT 

EOP STATUS (PRESENT WHENEVER NOT BUSY) 

ALARM INTERRUPT 

LOST DATA 

REAO MODE 
READY 
■ MANUAL INTERRUPT 



00033 
0003* 
00035 
00036 
00037 
00038 
00039 
000*0 
000*1 
000*2 
000*3 
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00i»5 
00<*6 
00^7 
00(f8 

oovg 

0050 
0051 
0052 
0053 
005<i 
0055 
0056 
0057 
0056 
0059 
0060 
0061 
0062 
0063 

0065 
066 
0067 
0068 
0069 
0070 
0071 



*ERR 


JR CLASS 


* 


1- 


* 


2- 


* 


3- 


* 


*♦- 


* 


7- 


♦ 


fl- 


* 


9- 


* 


10- 


* 


11- 


* 


12- 


» 


13- 


* 


15- 


* 


16- 


* 


20- 


* 


21- 


* 


22- 


* 


2<f- 


* 


27- 


* 


29- 



CLASSIFICATION COOES (HEX) 000^5 

TELETYPE NOT REAOY 000^6 

RE»LY ON INPUT-REJECT EXPECTED 000^7 

INTERNAL REJECT ON STATUS REQUEST 000^8 

INTERNAL REJECT ON DATA OUTPUT 000<i9 

INTERNAL REJECT ON FUNCTION SELECT 00050 

IMPROPER STATUStOTHER THAN READY, READ MODE, MOTOR ON AND E 00051 

DATA INTERRUPT-REJ^CT ON DATA OUTPUT 00052 

NO READ MODE STATUS O0053 

WRITE MODE SELECTED, READ MOOE STATUS UP 0005*i 

DATA INTERPUPT-REJECT ON DATA INPUT 00055 

GUSY STATUS NOT UP AFTER DATA OUTPUT 00056 

DATA COMPARE ERROR 00057 

FAILURE TO CLEAR INTERRUPTS 00058 

NO INTERRUPT STATUS 00059 

NON-REQUFSTED INTERRUPT 00060 

INTERRUPT GENERATED BY RINGING BELL 00061 

ALARM INTERRUPT BUT NO ALARM CONDITIONS 00062 

LOST DATA 00063 

EOP INTERRUPT OID NOT OCCUR 0006«» 

30-DELAY ADJUSTMENT ERROR 00065 

ADJUST DELAY ON BOTTOM EVEN SIOE 00066 

OF Z20-^ CARD LOCATED AT C-15 SO THAT 00067 

CONTROLLER NEVER GOES NOT BUSY WHEN 00068 

READING CONTINUOUSLY F10M PAPER TAPE. 00069 

ERROR SIGNIFIED BY SELECTIVE STOP IF SWITCH SET 00070 

SELECTIVE STOP AT TAG (CLRI2) WHEN INTERRUPT FAILS TO CLEAR 00071 
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0073 
007V 
0075 
0076 
0077 
0078 
0079 
0080 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 



♦ADDRESS TAGS 00073 

* RETURN-ADDRESS WHERE SMH RETURNS CONTROL TO TEST 00074 

* DLTNE- 00075 

* ALINE-INTERRUPT LINE NUMBER FOR TELETYPE 00076 

* EOPL- 00077 

* INT-FIRST WORD AODRESS OF INTERRUPT PROCESSING ROUTINE 00078 
» SECTNS-SECTION SELECTS PARAMETER 00079 

* COUNTR-COUNTER USED IN SECTIONS 1 ANO 11 (NUMBER OF LINES 00080 

* TYPED IN SECTION 1 ANO / OR NUMBER OF TIMES BELL IS RUNG 00081 

* IN SECTION 11) 00082 

* MOO-THIS BIT IS SET AT PARAMETER ENTRY TIME IF TELETYPE IS 00083 

* A 1713-M00E CHANGES WILL BE MADE BY THE PROGRAM. 00084 

* THIS PARAMETER IS NORMALLY ZERO WHICH INDICATES 00085 

* THE TELETYPE IS A 1712 OR IT IS A 1713 ANO THE 00086 
» OPERATOR WISHES TO MANUALLY SELECT MOOES. 00087 

* MOD1-THIS PARAMETER MUST BE SET TO A NONZERO VALUE IF THE TELET 00088 

* IS A 1712 ANO SECTIONS 6 OR 8 ARE TO BE RUN. PRESTOREO AS ZERO. 00089 



0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 



CAUTIONS TO USER 

SECTIONS 4,5*6,7 AND 8 ARE NOT NORMALLY RUN 

eECAUS* THEY REQUIRE OPERATOR INTERVENTION. 

IF THESE SECTIONS ARE SELECTED THE TELETYPE TEST SHOULD 

BE RUN ALONE. 



•IF COMPUTER STOPS WITH * 

♦OVERFLOW LIGHT FLASHING • 

♦OPERATOR MUST SELECT (K) • 

•MODE ANO PRESS MANUAL » 

•INTERRUPT TO CONTINUE. » 



SECTION 6 MAY BE RUN IN EITHER <KT> OR IT) MOOEIMANUAL MODE SEL 



00091 
00092 
00093 
00094 
00095 
00096 
00097 
00098 
00099 
00100 
00101 
00102 
00103 
00104 
00105 
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0107 


PO000 


180A 


TTY005 


JMP* 


ENTERS 


0108 


POOOl 
P0002 
P0003 


5454 
5930 
3035 




ALF 


3.TTY005 


0109 


P0004 


00 31 P PARAQR 


ADC 


ENTRY+5 


0110 


P0005 


0831 P RETURN 


ADC 


INIT05 


0111 


P0006 


0091 


EQUIP 


NUM 


$91 


0112 


POO 7 


0002 


OLINE 


NUM 


2 


0113 


POOO* 


0002 


ALINE 


NUM 


2 


0114 


P0009 


0002 


EOPL 


NUM 


2 



PARAMETER AREA FWA. 



DATA INTERRUPT LINE 

ALARM INTERRUPT LINE 

END OF OPERATION INTERRUPT LINE 



00107 
00106 



00109 
00110 
00111 
00112 
00113 
00114 



0116 




0117 




0118 




0119 


0001 


0120 


0002 


0121 


0003 


0122 


0004 


0123 


0005 


012<f 


0006 


0125 * 


0007 


0126 


0008 


0127 


0009 


0128 


000A 


0129 


OOOR 


0130 


000C 


0131 


OOOO 


0132 


0042 


0133 


0043 


0134 


0044 


0135 


0045 


0136 


0047 


0137 


0048 


0138 


0049 


0139 


0056 


0140 


006B 


0141 


0069 


0142 


006C 


0143 


0060 


0144 


006E 


0145 


006F 


0146 


0070 


0147 


0071 


0148 


0.0 72 


0149 


0073 


0150 


0074 


0151 


0075 


0152 


0076 


0153 


0077 



♦SMM 1700 DIRECT LOCATIONS 

* 

EQU CONTROLCl) 

EQU STOPXCCONTROL*i> 

EQU EXITCSTOPX+i) 

FQU REQINTC.FXIT + 1) 

EQU FCLRINTCREQINT+l) 

EQU JUMP(REQINTf21 

EQU GENRAN(JUMPfl) 

EQU TYPEOUTCGENRANfll 

EQU TTYBZYCTYPEOUTfl) 

EQU HEXASC(TYPE0UT«-2> 

EQU OVPLAY<HEXASC«-ll 

FQU RELPOS(OVRLAYfl) . 

EQU MAINLCRELPOS+i) 

EQU SETMASKCMAINL+53) 

EQU STJP(SETHASKf-l) 

EQU LASTVALUCSTJP+1) 

EQU LASTACMSTJP + 2) 

EQU LDLCORECLASTA04-2) 

EQU LOL1COR<LOLCORE+1> 

EQU INFORManLiCORMt 

EQU SMMCNTQNFORMU3) 

EQU BIT00(SMHCNT+21> 

EQU BIT0IBIT00) 

EQU BIT1CBIT0+11 

EQU BIT2CBIT1+1) 

EQU 8IT3(9IT2«-1I 

EQU BIT4(BIT3+i> 

EQU BIT5(3IT4fl) 

EQU BIT6(9TT5fl) 

EQU BIT7(BIT6fl) 

EQU BIT8CBIT7H* 

EQU BIT9(BIT8tl) 

EQU BIT10<BIT9+1> 

EQU BIT11CBIT10+11 

EQU BIT12f8ITll+ll 



RETURN SMM CONTROL ADDRESS, 

ALL STOPS ANO ERROR TYPEOUTS 

END OF TEST-PASS EXIT 

REQUEST INTERRUPT ADDRESS 

FAKE OLD -CLR INTRPT REQ- SUBRTN 

CHECK SKIPS WITCH FOR PARAM ENTRY 

RANDOM NUMBER GENERATOR 

MESSAGE TYPEOUT ROUTINE 

ROUTINE TO WAIT TTY NOT BUSY, 

HEX TO ASCII CONVERSION 

OVERLAY CALL ROUTINE, 

A/Q RELATIVE POSITION TEST, 

MANUAL INTERRUPT ROUTINE, 

M-REG RESET VALUE 

STOP/JUMP PARAMETER WORD, 

MONITOR AREA LWA+1 

AVAILABLE LOAD CORE FWA, 

BANKO LAST AOOR 

BANK1 LAST AODR 

BKO SIZE, MASK SIZE, BUSY SWITCH 

SMM PARAMETER WORD. 

•*•■ CONSTANT TABLE •*• 



00116 

00117 

00118 

00119 

00120 

00121 

00122 

00123 

00124 

00125 

00126 

00127 

00128 

00129 

00130 

00131 

00132 

00133 

00134 

00135 

00136 

00137 

00138 . 

00139 

00140 

00141 

G0142 

00143 

00144 

00145 

00146 

00147 

00148 

00149 

00150 

00151 

00152 

00153 
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TTY005 


PA 


0154 


0078 


EQU 


0155 


0079 


FQU 


0156 


007A 


EQU 


0157 


007B 


FQU 


0158 


00 7C 


EQU 


0159 


0070 


EQU 


0160 


007E 


EQU 


0161 


007F 


EQU 


0162 


0080 


EQU 


0163 


0081 


EQU 


0164 


0082 


EQU 


0165 


0083 


EQU 


0166 


0084 


EQU 


0167 


0085 


FQU 


0168 


0036 


EQU 


0169 


0087 


EQU 


0170 


0088 


EQU 


0171 


0089 


EQU 


0172 


Q08A 


EQU 


0173 


008B 


EQU 


0174 


0091 


EQU 


0175 


0092 


EQU 


0176 


0O6B 


EQU 


0177 


0056 


EQU 


0178 * 


00 tf 3 


EQU 


0179 


0007 


EQU 


0180 


000A 


EQU 


0181 


0008 


EQU 


0182 


0004 


EQU 


0183 


0005 


EQU 


018*1 


OOFO 


EQU 


0185 


OOFE 


EQU 



OATEt 10/20/75 



BIT13«BIT12*1I 

BIT1MBIT13 + D 

8IT15CBIT14*!) 

H0000(BIT15*1> 

HFFFFCH0O0O+1I 

HOO0F(HFFFF*l) 

HOOFOIHOOOF+l) 

H0F00CH00FO4.il 

HFOOO(HOFOOfl) 

HOOFFCHFOOO + n 

HFFOO(HOOFF«-1» 

HFFFQCHFFOO+ll 

HOFFFCHFFFO+11 

HFF0F<H0FFF*1> 

HFOFFCHFFOF*!) 

H7FFFCHF0FF*1) 

H7F00CH7FFF+1) 

H0780CH7FOOtl1 

H007F<H0780+1) 

H2020CH007Ffl) 

TSACTV(H2020«-6t 

TSFREQtTSACTV+1) 

CONSTCBITOO) 

SMHPAR(SMNCNT) 

SJPARCSTJPV 

PANOOHCGENRANI 

CONVERT! HEXASC) 

MESSAGUYPEOUTI 

REQNDCREQINTI 

CLRNDIFCLRINT1 

REQDIII-2) 

CLRDIIREQOH-1) 



TA8LE INDEX TO TEST IN CONTROL. 
TEST, FREQUENCY TABLE 



PRIVATE TEST COHHUNICATION CELL 
PRIVATE TEST COHHUNICATION CELL 



0015<» 
00155 
00156 
00157 
00158 
00159 
00160 
00161 
00162 
00163 
00164 
00165 
00166 
00167 
00168 
00169 
00170 
00171 
00172 
00173 
00174 
00175 
00176 
00177 
00178 
00179 
00180 
00181 
00182 
00183 
00184 
00185 



0187 


POOOA 


0844 


ENTER5 


CLR 


A 


0188 


POOOB 


6841 




STA* 


SECX 


0189 


POOOC 


DOOO 




LOA 


=XCH8SY 




POOOO 


0036 


P 






0190 


POOOE 


68F6 




STA* 


RETURN 


0191 


POOQF 


5810 




RTJ» 


ENTRY 


0192 


P0010 


5400 




RTJf 


WNB 




POOH 


OOBC 


P 






0193 


P0012 


C820 




LOA* 


SECTNS 


0194 


P0013 
P0014 


AOOO 
01EO 




AND 


=N$1E0 


0195 


P0015 


0105 




SAZ 


5 


0196 


P0016 


COOO 




LOA 


=XTNTMSG 




P0017 


069B 


P 






0197 


P0018 
P0019 


EOOO 
0093 




Lt)Q 


=XINTMGE-INTMSG+ 1 



ENTER PARAMS 



00187 

00188 

PTC2 00189 

PTC2 00190 
00191 
00192 

♦♦♦00193 
♦•♦00194 

♦♦♦00195 
♦♦♦00196 

♦♦♦00197 
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0198 


P001A 


5403 






RTJ- 


(MESSAGE! 


0199 


P001B 


0A01 






ENA 


1 


0200 


P001C 


5860 






RTJ* 


CON 


0201 


P001D 

pooie 


5400 
0554 


p 




RTJ* 


REQ 


02Q2 


P001F 


0A11 






ENA 


$11 


0203 


P0020 
P0021 


6400 
0536 


p 




STAf 


INTREQ 


0201* 


P0022 


CO 76 






LDA- 


BIT11 


0205 


P0023 
P0024 


6400 
0537 


p 




STA* 


INTST 


0206 


P0025 


C06F 






LOA- 


8IT4 


0207 


P0026 
P0027 


5400 
055A 


p 




RTJ* 


SEL 


0208 


P0028 
P0029 


COOO 
0054 


p 




LOA 


=XSECT0 


0209 


P002A 


6821 






ST A* 


PRGRET 


0210 


P0023 


5401 






RTJ- 


(CONTROL) 


0212 


P002C 


0000 




ENTRY 


NUM 





0213 


P002D 


COOO 






LDA- 





0214 


P002E 


0000 


p 


XTTY005 


AHC 


TTY005 


0215 


P002F 


5402 






RTJ- 


(STOPXI 


0216 


P0030 


1CFB 






JMP* 


(ENTRY) 


0217 


* 


0031 


p 




ORG 


* 


0218 


P0031 


0521 






NUM 


$521 


0219 


P0032 


OEOF 




sectns 


NUM 


$E0F 


0220 


P0033 


0040 




COUNTP. 


NUM 


$40 


0221 


PQQ34 


0000 




MOO 


NUM 





0222 








* 






0223 








* 






0224 


P003=; 


0000 




MODI 


NUH 






WARNING MSG TO OPERATOR 

CLEAR CONTROLLER 
REQUEST INTERRUPTS 



REQUESTFO INTERRUPTS 

STATUS BITS 

FOR REQUESTEO INTERRUPTS 



SELECT ALARM INTERRUPTS 

CONTROL TO SMM 
PERMANENT INITIALIZATION 
TEST IA 



SECTIONS SELECTED ( f 1,2, 3*9,10 , AND 11) 

COUNTER FOR SECTIONS 1 AND 11 

MODEL FLAG-IF=1 TELETYPE IS A 1713 

IF=0 TELETYPE IS A 1712 OR A 1713 

USING MANUAL SELECTION OF MOOES 

MUST BE NONZERO FOR 1712(SEC 6 OR S), 



•♦♦00198 
00199 

00200 
00201 

00202 
00203 

00204 
00205 

00206 
00207 

00208 

00209 

00210 

00212 

00213 

00214 

00215 

00216 

00217 

00218' 

00219 

00220 

00221 

00222 

00223 

00224 



0226 






* 






0227 






»CHE?K 


TELETYPE 


BUSY SWITCH 


0228 






* 






0229 


P0036 


C049 


CH8SY 


LOA- 


INFORM 


0230 


P0037 


A06B 




ANQ- 


CONST 


0231 


P0038 


0114 




SAN 


CHBSY3-*-l 


0232 


P0039 
P003A 


5800 
0089 




RTJ 


IPS 


0233 


P003B 


A06C 




AND- 


BIT1 


0234 


P003C 


0101 




SAZ 


1 


0235 


P003D 


5401 


CH8SY3 


RTJ- 


(CONTROL) 


0236 


P003E 
P003F 


CflOO 
02FO 




LDA 


MRF 


0237 


P0040 


0101 




SAZ 


1 


0236 


P0041 


18FB 




JMP* 


CHBSY3 


0239 


P0042 


EC07 




LDQ* 


(XERC) 


0240 


P0043 


0146 




SQZ 


CHBSY2-*-! 



IS TELETYPE BUSY SWITCH SET 



RETURN CONTROL TO SMM 



ERROR CODE 





00226 




00227 




00228 




00229 




09230 


PTC 2 


00231 


PTC2 


00232 


PTC2 


00233 


»TC2 


00234 


PTC2 


00235 


PTC2 


00236 


PTC2 


00237 


PTC2 


00236 




00239 




00 240 
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0241 P0Q44 6C05 

0242 P0045 0A18 

0243 P0046 585C 

0244 P0047 0844 

0245 P0048 6400 

0246 P0049 0534 

0247 P004A 1C01 

0248 P004B OOOA 





STA* 


(XERC) 




ENA 


$18 




RTJ* 


STOP 




CLR 


A 




STA- 


(0) 


XERC 


AOC 


ERC 


CHBSY2 


JMP* 


(PRGRET) 


PRGRET 


ADC 


ENTER5 



CLEAR ERROR CODE 
ERROR STOP. 



00241 
00242 
00243 
00244 
00245 
00246 
00247 
00245 



0250 


P004C 


0000 


SECX 


NUM 





0252 


P004O 


0A02 


END 


ENA 


2 


0253 


P004E 


0842 




CLR 


Q 


0254 


P004F 


5853 




RTJ» 


STOP 


0255 


P0050 


0A20 




ENA 


•620 


0256 


P0051 


5406 




RTJ- 


CJUMP) 


0257 


P0052 


1802 




JHP* 


SECTO 


0258 


P0053 


D8F8 


SECT 


RAO* 


SECX 


0259 


P0054 


E8F7 


SECTO 


LOQ» 


SEOX 


0260 


P0055 


OAOC 




ENA 


12 


0261 


P0056 


0874 




EAQ 


A 


0262 


P0057 


0111 




SAN 


1 


0263 


P0058 


1813 




JMP* 


ENDTST 


0264 


P0059 


02 68 




LDA- 


BIT0,Q 


0265 


P005A 


A8D7 




AND* 


SECTNS 


0266 


P0053 


0111 




SAN 


SECTl-*-l 


0267 


P005C 


18F6 




JMP* 


SECT 


0268 


P005O 


0OF5 


SECT1 


INQ 


-$A 


0269 


P005E 


0172 




saw 


SECT2-*-i 


0270 


P005F 


0D10 




INQ 


$10 


0271 


P0060 


1802 




JMP* 


SECTS 


0272 


P0061 


E8EA 


SECT2 


LDQ* 


SECX 


0273 


P0062 


0FA8 


SECT3 


OLS 


8 


0274 


P0063 


4828 




STQ* 


SEC 


0275 


P0064 


582B 




RTJ* 


PAR 


0276 


P0065 


5824 




RTJ* 


CON 


0277 


P0066 


0844 




CLR 


A 


0278 


P0067 


6C68 




STA* 


(XF1> 


0279 


P0O68 


E8E3 




LDQ* 


SECX 


0280 


P0069 


EA14 




LDQ* 


SECAD,Q 


0281 


P006A 


1673 




JMP- 


(HOOOO) , Q 


0283 


P006B 


68E0 


ENtlTST 


STA* 


SECX 


0284 


P006C 


O805 




RAO* 


PASS 


0285 


P006O 


C3C0 




LDA* 


XTTY005 


0286 


P006E 


5402 




RTJ- 


(STOPX) 


0287 


P006F 


1803 




JMP* 


ET1 


0288 


P0070 


0504 




NUM 


$504 


0289 


P0071 


0000 


PASS 


NUM 






HEX SECTION AOOR. TABLE INDEX, 

END OF SECTION ROUTINE 
END OF SECTION STOP 
CHECK REPEAT SECTION 



JUMP AFTER LAST SECTION. 



SKIP IF SECTION SELECTED* 
OR CHECK NEXT SECTION SELECT. 



CHECK PARAM RE-ENTRY. 
CONNECT. 



GO RUN SECTION 



UPDATE PASS COUNT. 
(TEST IA) 



00 250 



00252 
00253 
00254 
00255 
00256 
00257 
00258 
00259 
00260 
00261 
00262 
00263 
00264 
00265 
00266 
00267 
00268 
00269 
00270 
00 271 
00272 
00273 
00274 
00275 
00276 
00277 
00278 
00279 
00280 
00261 

00283 
00264 
00285 
00266 
00287 
00268 
00289 
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TTY005 






PASF 


8 


0290 


P0072 


0A40 




ET1 


ENA 


$40 


0291 


P0073 


5406 






RTJ- 


(JUMP) 


0292 


P0074 


1805 






JMP* 


ET? 


0293 


P0075 


C838 






LDA* 


XftY005 


029** 


P0076 


5403 






RTJ- 


(EXIT) 


0295 


P0077 
P0078 


5400 
0554 


P 




RTJf 


REQ 


0296 


P0079 


5316 




ET2 


RTJ* 


PA? 


0297 


P007A 


583E 






RTJ* 


RCM 


0298 


POO 70 


0842 






CLR 


Q 


0299 


PQ07S 


18D6 






JMP* 


SECT 


0300 


P007H 
P007E 
P007F 
P0080 
P0081 
P0082 
P0083 
P0034 
P0085 
P0086 


0OF5 
015C 
0180 
01AF 
01FE 
025F 
02E7 
034E 
038F 
Q3FC 


P 

P 
P 
P 
P 
P 
P 
P 
P 
P 


SECAD 


ADC 


SECOtSEI 


0301 


P0087 
P0088 


042F 
046C 


P 

P 




ADC 


SEClOtS 



DATE! 10/20/75 



CHECK FOR REPEAT TEST, 
REPEAT TEST. 
TEST IA. 



CHECK FOR PARAM RE-ENTRY. 
GO TO MONITOR 



SEC0*SECl,SEC2,SFC3tSEC4.SEC5 f SEC6,SEC7,SECa t SEC9 



00290 
00 291 
00292 
00293 
00294 
00295 

00296 
00297 

00298 
00299 
00300 



00301 



0303 




¥ 










0304 




*CONN c 


7 CT 


ROUTINF 






0305 




» 










0306 P0089 


0000 


CON 




NUM 







0307 P008A 


5832 






RTJ» 


WNB 




0308 P0083 


0A01 






ENA 


1 


CLEAR CONTROLLER 


0309 P008C 


530A 






RTJ* 


OPF 


OUTPUT FUNCTION 


0310 P008D 


1CFB 






JMP* 


(CON) 




0311 P008E 


0000 


SEC 




NUM 








00303 
00304 
00305 
00306 
00307 
00308 
00309 
00310 
00311 



0313 






0314 






0315 






0316 


P008F 


0000 


0317 


P0090 


CO 75 


0318 


P0091 


5406 


0319 


P0092 


1802 


0320 


P0093 


1CFO 


0321 


P0094 


5897 


0322 


PQQ95 


1CF9 



♦CHECK FOR RE-ENTRY OP" PARAMETERS 



PAR 



PARI 



NUM 

LOA- 

RTJ- 

JMP* 

JMP* 

RTJ* 

JMP* 





BIT10 

(JUMP) 

PARI 
(PAR) 
ENTRY 
(PAR* 



($4U0> 

RE-ENTER PARAMETERS 

00 NOT RE-ENTER PARAMETERS 



00313 
00314 
00315 
00116 
00317 
00313 
00319 
00320 
00 321 
00322 



60223500 



PAGE 



~A 



^ O O 



c 



o c 



TTY005 



PAGR 



DATE! 10/20/75 



0324 




* 






0325 




♦OUTPUT 


FUNCTIONS 




0326 




♦A=FUNCTION 




0327 




* 






0328 P0096 


0000 


OPF 


NUM 





0329 P0097 


681F 




STA* 


0ATA1 


0330 P0098 


C81E 


01 


LOA* 


DATA1 


0331 P0099 


E85B 




LOQ* 


0IR1 


0332 P009A 


0302 


02 


OUT 


03-*-l 


0333 PQQ93 


1CFA 




JMP* 


(OPFI 


0334 P0Q9C 


1A02 




JMP* 


04 


0335 P009D 


18FA 


01 


JMP* 


01 


0336 P009E 


0A18 


0* 


ENA 


*ib 


0337 P009F 


0C07 




ENQ 


7 


0338 P00A0 


5802 




RTJ* 


STOP 


0319 P00A1 


18F6 




JMP* 


01 



EXIT ON REPLY 

RESELECT FUNCTION 

INT. REJECT ON FUNCTION SELECT 

RESELECT FUNCTION 



00324 
00325 
00326 
00327 
00328 
00329 
00330 
00 331 
00332 
00333 
00334 
00335 
00336 
00337 
00338 
00339 



0341 






. » 






0342 






♦ERROR 


STOP ROUTINE 


0343 






* 






0344 


P00A2 


0000 


STOP 


NUM 





0345 


t>0OA3 
P00A4 


BOOO 
0500 




EOR 


=N$500 


0346 


P00A5 


680C 




STA» 


IB 


0347 


P00A6 


F8E7 




ADQ» 


SEC 


0348 


P00A7 


4809 




STQ* 


SECERR 


0349 


P00A8 


C8F9 




LOA» 


STOP 


0350 


P00A9 


E043 




LOQ- 


STJP 


0351 


POOAA 


0FA6 




QLS 


6 


0352 


POOAB 


0171 




SQM 


STOAOR 


0353 


POOAC 


9881 




SU3» 


XTTY005 


0354 


POOAO 


6806 


STOAOR 


STA» 


RETAOR 


0355 


POOAE 


OAOO 




ENA 





0356 


POOAF 


5402 




RTJ- 


(STOPXI 


0357 


POOBO 


1CF1 




JMP» 


(STOP) 


0358 


PQ0B1 


OOOO 


10 


NUM 





0359 


P00B2 


0000 


SECERR 


NUM 





0360 


P00B3 


0000 


RfTASR 


NUM 





0361 


P00B4 


0000 


ACT 


NUM 





0362 


P00B5 


0000 


EXP 


NUM 





0363 


P00B6 


0000 


DATA! 


NUM 




0364 


P00B7 


0000 


0ATA2 


NUM 





FORM IOENT HORO 

SECTION AND ERROR NUMBERS 
STOP-JUMP PARAMETER 

TEST IA, 



00341 
00342 
00343 
00344 
00345 

00346 
00347 
00348 
00349 
00350 
00 351 

•♦♦00352 
00353 

♦••00354 
00355 
00356 
00357 
00350 
00359 
00360 
00 361 
00362 

•••00363 

•♦♦00364 



0366 
0367 
0368 
0369 POQBft 0000 



♦RETURN CONTROL TO MONITOR 



RCM 



NUM 



00366 
00367 
00368 
00369 



60220500 



PAGE 
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DATE! 10/20/75 



0370 P00B9 C8FE 

0371 P009A 6890 

0372 PQ089 5401 



LDA» 
STA» 
RTJ- 



RCM 

PRGRET 

(CONTROL) 



CONTROL TO SMN 



00370 
00371 

00372 



0374 
0375 
0376 

0377 POOBC 0000 

0378 POOBD 5806 

0379 POOBE A06C 

0380 POOBF 0111 

0381 POOCO 1CF0 

0382 P00C1 58F6 

0383 P00C2 18FA 



♦WAIT NOf BUSY ROUTINF 



WN9 



NUM 





RTJ» 


IPS 


ANO- 


CONST+1 


SAN 


1 


JMP* 


(WNB1 


RTJ» 


RCM 


JMP» 


WNB+1 



INPUT STATUS 
CHECK FOR BUSY 
EXIT TO SUM IF BUSY 
EXIT IF NOT BUSY 

RECHECK BUSY 



00 37<f 
00375 
00376 
00377 
00378 
00379 
00380 
00381 
00382 
00383 



0385 






* 






0386 






♦INPUT 


STATUS 


ROUTINE 


0387 






* 






0388 


P00C3 


0000 


IPS 


NUM 





0389 


P0OC4 


E830 




LOQ* 


DIR1 


0390 


P00C5 


0202 




INP 


IPSl-»-l 


0391 


P00C6 


1807 




JMP* 


IPS3 


0392 


P0OC7 


1802 




JMP* 


IPS2 


0393 


P0OC3 


18F3 


IPSi 


JrtP* 


IPSfl 


0394 


P00C9 


0A18 


IPS2 


ENA 


$18 


0395 


POOCA 


0C03 




ENQ 


3 


0396 


pooca 


5806 




RTJ* 


STOP 


0397 


POOCC 


18F7 




JMP» 


IPSfl 


0398 


POOCO 


6C44 


IPS3 


STA* 


<XSTAT1> 


0399 


POOCE 


68E5 




STA» 


ACT 


0400 


POOCF 


1CF3 




JMP» 


(IPS) 



INT. REJECT-STATUS REQUEST 



RECHECK STATUS 



STORE ACT STATUS FOR OISPLAU 



00385 

00386 
00387 
00388 
00389 
00390 
00391 
00392 
00393 
00394 
0(1395 
00396 
00397 
00398 
»*»00399 
00400 



0402 
0403 
0404 
0405 

0406 POOOO 0000 

0407 P00O1 E400 

0408 P00O2 018C P XF1 

0409 P0003 0155 

0410 P00D4 0FC8 

0411 P0005 6810 

0412 P00O6 OAFD 

0413 P0007 681A 



♦OUTPUT DATA ROUTINE 
♦OATA IN A UPON ENTRY 

OUT 



NUM 





LOO- 


(0) 


ADC 


Fl 


SQN 


OUTlA-*-l 


ALS 


8 


STA» 


PAT 


ENA 


-2 


STA» 


CHAR 



00402 
00403 
00404 
00405 
00406 
00407 
00408 
00409 
00410 
00411 
00412 
00413 
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TT1 


roo5 




PAGE 


11 


0414 


P00D8 


1804 




JMP* 


0UT1 


0415 


P0009 


OCFE 


0UT1A 


ENQ 


-1 


0416 


P00OA 


4817 




STQ* 


CHAR 


0417 


P00D3 


6817 




STA» 


PAT 


0418 


poonc 


58DF 


0UT1 


RTJ* 


WNR 


0419 


POODD 


C073 




LDA- 


CONST 


0420 


poooe 


5887 




RTJ* 


OPF 


0421 


P00OF 


C813 


0UT2 


LOA* 


PAT 


0422 


POOEO 


E813 




LDQ* 


DIRO 


0423 


P00E1 


0302 




OUT 


OUTS- 


0424 


P00E2 


1807 


* 


JMP* 


OUTS 


0425 


PO0E3 


1802 




JMP* 


0UT4 


0426 


P00E4 


18F7 


0UT3 


JHP* 


0JT1 


0427 


P00E5 


0A18 


0UT4 


ENA 


$18 


0426 


POOES 


0C04 




ENQ 


4 


0429 


P00E7 


588A 




RTJ* 


STOP 


0430 


P00E8 


18F3 




JHP» 


0UT1 


0431 


P00E9 


D808 


OUTS 


RAO* 


CHAR 


0432 


POOEA 


C807 




LOA* 


CHAR 


0433 


P0OE3 


0104 




SAZ 


0UT6- 


0434 


POOEC 


C806 




LOA* 


PAT 


0435 


POOEO 


0FC8 




ALS 


8 


0436 


POOEE 


6804 




STA» 


PAT 


0437 


POOEF 


18EC 




JMP* 


0UT1 


0438 


POOFO 


1C0F 


0UT6 


JMP* 


COUT) 


0439 


P00F1 


0000 


CHAR 


NUM 





0440 


P0 0F2 


0000 


PAT 


NUM 





0441 


POOFS 


0090 


DIRO 


NUM 


$90 


0442 


P00F4 


0091 


DIR1 


NUM 


$91 



DATEI 10/20/75 



f8 



*-l 



*-l 



SELECT WRITE NODE 



INTERNAL REJECT -DATA OUTPUT 



00414 
00415 
00416 
00417 
00418 
00419 
00420 
00421 
00422 
00423 
00424 
00425 
00426 
00427 
00426 
00429 
00430 
00431 
00432 
00433 
00434 
00435 
00436 
00 437 
00438 
00439 
00440 
00441 
00442 



0444 






* 




0445 






*SECft 




0446 
0447 






•CHECK 


READY, 


0448 






* 




0449 


POOFS 
P00F6 


5400 
0580 P 


SECO 


RTJ* 


0450 


P0OF7 
P00F8 


COOO 
FEOB 




LOA 


0451 


P0QF9 
POOFA 


6800 

0083 




STA 


0452 


P0OF3 


588D 


SECOA 


RTJ* 


0453 


POOFC 


58C6 


SECO-3 


RTJ* 


0454 


POOFO 
POOFE 


AOOO 
F9EE 




AND 


0455 


POOFF 


0104 




SAZ 


0456 


P0100 


0A18 




ENA 


0457 


P0101 


0C08 




ENQ 


0458 


P0102 


589F 




RTJ* 


0459 


P0103 


18F7 




JMP* 



*EAD MODE AND BUSY STATUS 



CRLF 



=N-$1F4 

CNT 

CON 
IPS 
= N«SF9EE 

SECOC-*- 

$18 

8 

STOP 

SECOA 



ECC- 



00444 
00445 
00446 
00447 
00448 
00449 

00450 

00 451 



CLEAR CONTROLLER 


00452 


INPUT STATUS 


00453 


CHECK FOR IMPROPER STATUS 


00454 




00455 




00456 


ER STATUS 


00457 




00458 


ATUS 


00459 
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TT 


tons 




PAGE 


12 


0460 


P0104 


CCOO 


SECOC 


LOA* 


(XSTAT1) 


0461 


P0105 
P0106 


BOOO 
0201 




FOR 


=N$201 


0462 


P0107 


0111 




SAN 


1 


0463 


P0108 


1810 




JMP* 


SECOF 


0464 


P0109 


CC08 




LDA* 


(XSTAT11 


0465 


P010A 


A06B 




ANQ- 


CONST 


0466 


P010B 


0114 




SAN 


SEC0O-*-l 


0467 


P010C 


0A13 




EN A 


$18 


0468 


P0100 


0C01 




ENQ 


1 


0469 


P010E 


5893 




RTJ» 


STOP 


0470 


P010F 


18EB 




JMP» 


SECOA 


0471 


POllO 


C400 


SECOO 


LOA- 


t'O) 


0472 


P0111 


0188 P 


XSTAT1 


ADC 


STAT1 


0473 


P0112 


A074 




ANO- 


CONSTl-9 


0474 


P01U 


0114 




SAN 


SECOF-*-! 


0475 


P0114 


0A18 




ENA 


$18 


0476 


P0115 


0C10 




ENQ 


$10 


0477 


P0116 


5888 




RTJ* 


STOP 


0478 


P0117 


18E3 




JHP* 


SECOA 


0479 


P0118 


0A10 


SECOF 


ENA 


$10 


0480 


P0119 


5406 




RTJ- 


(JUMP) 


0481 


P011A 


18E0 




JMP* 


SECOA 


0482 


P0113 


C073 




LOA- 


CONST+8 


0483 


POllC 
POllO 


5800 
FF78 




RTJ 


OPF 


0484 


PG11E 


58A4 


SECOS 


RTJ* 


IPS 


0485 


P011F 


A074 




ANO- 


CONST+9 


0486 


P0120 


0105 




SAZ 


SECOH-*-i 


0487 


P0121 


0A18 




ENA 


$18 


0483 


P0122 


0C11 




enq 


m 


0489 


P0123 
P0124 


5800 
FF70 




RTJ 


STOP 


0490 


P0125 


18F8 




JNP* 


SECOG 


0491 


P0126 


C074 


SECOH 


LDA- 


C0NSU9 


0492 


P0127 
P0128 


5800 
FF60 




RTJ 


OPF 


0493 


P0129 


5899 




RTJ* 


IPS 


0494 


P012A 


A074 




ANO- 


CONSH-9 


0495 


P0123 


0115 




SAN 


SECOJ-*-l 


0496 


P012Q 


0A18 




ENA 


S18 


0497 


P012O 


0G1O 




ENQ 


$10 


0498 


PQ12E 
P012F 


5800 
FF72 




RTJ 


STOP 


0499 


P0130 


18F5 




JMP* 


SECOH 


0500 


P0131 


0A10 


SECOJ 


ENA 


$10 


0501 


P0132 


5406 




RTJ- 


(JUMP) 


0502 


P0133 


18F2 




JNP* 


SECOH 


0503 


P0134 


0879 




RAO* 


CNT 


0504 


P0135 


C878 




LDA» 


CNT 


0505 


P0136 


0101 




SAZ 


SECOK-*-l 


0506 


P0137 


18C4 




JMP* 


SECO* 


0507 


P0138 


0AF9 


SECOK 


ENA 


-6 



OATEI 10/20/75 
CHECK READY ANO READ MODE STATUS 

CHECK FOR READY STATUS 
ECC-TELETYPE NOT REAOY 

CHECK FOR REAO MODE STATUS 
ECC-NO REAO MODE STATUS 

CHECK FOR REPEAT CONDITIONS 
SELECT WRITE MODE 



INPUT STATUS 
CHECK FOR READ MODE STATUS 



ECC-READ MODE STATUS ON WRITE SELECT 

SELECT READ MODE 

INPUT STATUS 

ECC-REAO MODE STATUS NOT SET 

RESELECT READ MODE 
CHECK FOR REPEAT CONDITIONS 
UPDATE COUNTER 

LOOP 500 TIMES 



00460 
00461 

00462 
00463 
00464 
00465 
00466 
00467 
00468 
00469 
00470 
00 471 
00472 
00 473 
00474 
00475 
00476 
00477 
00478 
00479 
00480 
00481 
00482 
00483 

00484 
00485 
00486 
00467 
00488 
00489 

00490 
00 491 
00492 

00 493 
00494 
00495 
00496 
00497 
00498 

00499 
00500 
00501 
00502 
00503 
O05Q4 
00505 
00506 
00507 
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TTY005 


0508 


P0139 


6875 


0509 


P013A 


cooo 




P0133 


060E 


0510 


P013C 


681F 


0511 


PQ133 


5C6E 


0512 


P013E 


5800 




P013F 


FF7C 


0513 


P01*0 


0AF5 


051* 


P01*i 


68 6C 


0515 


P01*2 


CC19 


0516 


P01*3 


588C 


0517 


P01** 


5800 




P01*5 


FF70 


0518 


P01*6 


A06C 


0519 


P01*7 


01.15 


0520 


P01*8 


0A18 


0521 


P01*9 


0C13 


0522 


PQi*A 


5800 




POi*'J 


FF56 


0523 


POi*C 


18F5 


052* 


POi*D 


0860 


0525 


P01*E 


C85F 


0526 


POi*F 


0101 


0527 


P0150 


18F3 


0528 


t>0151 


080A 


0529 


P0152 


085C 


0530 


P0155 


C85B 


0531 


P015* 


0101 


0532 


P0155 


18EA 


0533 


P0156 


0A1O 


Q53* 


P0157 


51*06 


0535 


P015* 


18DF 


0536 


P0159 


1*00 




P015A 


00*D 


0537 


P015B 


0000 



PAGE 



13 



DATE! 10/20/75 



SECOL 



SFCOM 
SECON 



SFCQP 



ENOO 
INn5 



STA* 


CNT1 


LOA 


=XMESS 


STA* 


IND5 


RTJ* 


(XCRLF) 


RTJ 


WNB 


ENA 


-10 


STA* 


CNT 


LOA* 


(IND5) 


RTJ* 


OUT 


RTJ 


IPS 


AND- 


CONST+1 


SAN 


SECQP-*-i 


ENA 


S18 


ENQ 


$13 


RTJ 


STOP 


JMP* 


SECOM 


RAO* 


CNT 


LOA* 


CNT 


SAZ 


1 


JMP* 


SECQN 


RAO* 


IN05 


RAO* 


CNT1 


LOA* 


CNT1 


SAZ 


1 


JMP* 


SECOL 


ENA 


S10 


RTJ- 


(JUMP) 


JMP* 


SECOK 


JMP+ 


ENO 



LOOP COUNTER 



CARRIAGE RETURN, LINE FEET), 



INPUT STATUS 
CHECK BUSY STATUS 

ECC-NO BUSY STATUS AFTER OUTPUT 
UPOATE COUNTER. 



CHECK FO* REPEAT CONDITIONS 

GO TO ENO SECTION ROUTINE. 



NUM 



00508 
00509 

00510 
00511 
00512 

00513 
0O51*i 
00515 
00516 
00517 

00518 
00519 
00520 
00521 
00522 

00523 
0052* 
00525 
00526 
00527 
00526 
00529 
00530 
00531 
00532 
00533 
0053* 
00535 
00536 

00537 



0539 






* 






05*0 






*SEC1 






05*1 






♦ — 






05*2 






♦RIPPLE 


PATTERN 




05*3 






* 






05** 


P015C 


5C*F 


SEC1 


RTJ* 


(XCRLF) 


05*5 


P015D 


0A01 




ENA 


1 


05*6 


P015E 


682E 




STA* 


Fl 


05*7 


P015F 
P0160 


E800 
FF.02 




LDO 


COUNTR 


05*8 


P0161 


0854 




TCQ 


A 


05*9 


P0162 


6828 




STA* 


LINE 


0550 


P0163 


0A20 




ENA 


$20 


0551 


P0164 


6823 




STA* 


CHI 



CARRIAGE RETURN, LINE FEED. 



NUHBER OF LINES 



00539 
0051*0 
0Q5<»1 
005*2 
005*3 
00 5** 
005*5 
005*6 
005*7 

005*8 
005*9 
00550 
00 551 
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DAT El 1 0/20/75 



0552 


P0165 


6824 


3EC1A 


ST A* 


0553 


P0166 


0AB7 




ENA 


0554 


P0167 


6824 




STA* 


0555 


P0163 


C821 


sEcn 


LDA* 


0556 


P0169 


5C50 




RTJ* 


0557 


P016A 


0821 




PAO* 


0558 


P0163 


C820 




LOA* 


0559 


P016C 


0108 




SAZ 


0560 


P016D 


08 1C 




RAO* 


0561 


P016E 


C81R 




LOA* 


0562 


P016F 


099F 




INA 


0563 


P0173 


0101 




SAZ 


0564 


P0171 


18F6 




JMP* 


0565 


P0172 


OA20 


secic 


ENA 


0566 


P0173 


6816 




STA» 


0567 


PQ174 


18F3 




JM°* 


0568 


P0175 


0815 


SEC 11 


PAO* 


0569 


P0176 


C814 




LOA* 


0570 


P0177 


010A 




SAZ 


0571 


P0178 


0844 




CLP 


0572 


P0179 


6813 




STA* 


0573 


P017A 


5C31 




RTJ* 


0574 


P017F3 


0811 




RAO* 


0575 


P017C 


0A10 




ENA 


0576 


P017O 


5406 




R.TJ- 


0577 


P017E 


180? 




JMP* 


0578 


P017F 


08Q8 




RAO* 


0579 


P0180 


C807 


SEC1F 


LDA* 


0580 


P0181 


18E3 




JMP* 


0581 


P0182 


344 


SEC1E 


CLR 


0582 


P0183 


6809 




STA* 


0583 


P0184 


5C27 




rtj* 


0584 


P0185 


0807 




RAO* 


0585 


P0186 


1802 


END1 


JMP* 


0586 


PQ187 


oonn 


CHI 


NUM 


0587 


P0183 


onoo 


STAT1 


NUM 


0588 


P0189 


0000 


CH2 


NUM 


0589 


P018A 


0000 


LINE 


NUM 


0590 


PQ183 


0000 


CI 


NUM 


0591 


P018C 


0000 


Fl 


NUM 



CH2 
-$48 

CI 
CH2 

(xouti 

CI 

CI 

sECin-*-i 

CM? 

CM? 
-$60 

SEClC-*-l 
SEC1B 

$2n 

CH2 

SEC1R 

LINE 

LINE 

SEClE-*-l 

A 

Fl 

(XCRLFJ 

Fl 

$10 

(JUMP1 

SEC IF 

CHI 

CHI 

SFC1A 

A 

Fl 

(XCRLF1 

Fl 

ENOO 

n 









CHARACTERS PER LINE 



OUTPUT ONE CHARACTER. 



NEXT CHARACTER 



UPOATE LINE COUNT 



CARRIAGE RETURN, LINE FEED. 



CHECK FOR REPEAT CONDITIONS 

REPEAT 



NEXT LINE 



CARRIAGE RETURN, LINE FEED, 
ENO SECTION ROUTINE, 



00552 
00553 
00554 
00555 
00556 
00557 
00558 
00559 
00560 
00561 
00562 
00563 
00564 
00565 
00566 
00567 
00568 
00569 
00570 
00571 
00572 
00 573 
00 574 
00575 
00576 
00577 
00578 
00579 
00580 
00581 
00582 
00583 
00 584 
00585 
00586 
00587 
00588 
00589 
00590 
00591 



0591 
0594 
0595 
0596 
0597 
0598 
0599 

0600 P018) 6820 

0601 nniae C073 



*SFC? 

*CHECK CARRIAGE RETURN ANO LINE FEED 

*TYPc A CHARACTER, CARRIAGE RETURN,LINE FEED 

•SPACE TO END OF TYPE. 

*9EPiTAT TILL ONE LINE TYPFD 



StC2 



STA* 

LOA- 



CNT 
CONST+8 



CA=ZERO> 



00593 
00 594 
00595 
0Q596 
00597 
00598 
00599 
00600 
00601 
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DATE! 10/20/75 



0602 


P018F 5800 
P0190 FF05 




RTJ 


OPF 


0603 


P0191 E800 
P0192 FF60 




LOQ 


GIRO 


0601* 


P0193 COOO 
P019V 1*352 


SEC2A 


LOA 


= NU352 


0605 


P0195 5C31 




PTJ* 


(XOUTI 


0606 


P0196 0817 




RAO* 


CNT 


0607 


P0197 5C1<* 




RTJ* 


CXCRLF) 


0608 


P0198 E815 




LOQ* 


CNT 


0609 


P0199 0651* 




TCO 


A 


0610 


P019A 681** 




STA* 


CNT1 


0611 


P019B E800 
P019C FF56 




Loa 


OIRO 


0612 


P0190 C08B 


SEC29 


LOA- 


H2020 


0613 


P019E 5C28 




RTJ* 


(XOUTI 


0611* 


P019F D80F 




RAO* 


CNT1 


0615 


P01A0 C8QE 




LOA* 


CNT1 


0616 


P01A1 0101 




SAZ 


1 


0617 


P01A2 13FA 




JMP* 


SEC28 


0616 


P01A3 OAIO 




ENA 


$10 


0619 


POlAi* 5**06 




RTJ- 


<JUMP) 


0620 


P01A5 18E0 




JMP* 


SEC2A 


0621 


.P01A6 C807 




LOA* 


CNT 


0622 


P01A7 09EB 




INA 


-$H* 


0623 


PQ1A8 0101 




SAZ 


1 


0621* 


P01A9 18E9 




JMP* 


SEC2A 


0625 


P01AA 5*00 




RTJ- 


(0) 


0626 


P01AB 05B0 P 


XCRLF 


ADC 


CRLF 


0627 


P01AC 18D9 


EN02 


JMP* 


ENOl 


0628 


P01AO.0000 


GNT 


NUM 





0629 


P01AE 0000 


CNT1 


NUM 






UPOATE COUNTER 

CARRIAGE RETURN, LINE FEED. 



(-$2020) 
UPOATE SPACE COUNT 

REPEAT SPACING 

CHECK FOR REPEAT CONDITIONS 



LOOP TILL ONE LINE TYPED 

CARRIAGE RETURN, LINE FEED 

GO ENO SECTION, 



00602 

00603 

0060*1 

00605 
00606 
00607 
00608 
00609 
00610 
00611 

00612 
00613 
00611* 
00615 
00616 
00617 
00618 
00619 
00620 
00621 
00622 
00623 
00621* 
00625 
00626 
00627 
00628 
00629 



0631 






♦ . 




0632 






*SEC3 

9. 




U03 

063* 






•CHF'JK HORIZONTAL 


AND VERTICAL 


0635 






♦ANO TOP OF FO^M 




0636 






* 




0637 


POIAF 
P01B0 


6*00 

0253 P 


SEC3 STAf 


FL1 


0638 


P01B1 
*>01B2 


6800 

OOAA 


STA 


FL2 


0639 


P01B3 
P0131* 


cono 

897^ 


LOA 


=N$Rq7F 


061*0 


P01B5 


681*6 


STA* 


MCODE 


061*1 


P01B6 
*>Q1B7 


cooo 

1*851* 


LOA 


= N$i*85i* 


061*2 


PQ1B8 


681* u 


STA* 


F2 


061*3 


P01B9 
POIBA 


cooo 

*1*2 


LOA 


=NSI*11*? 




60220500 F 







TABS 



(A=ZSRO> 



STORE HORIZONTAL TAB CODE 



00631 
00632 
00633 
00631* 
00635 
00636 
00637 

00638 

00639 

0061*0 
006<*1 

0061*2 
0061*3 
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DATEt 10/20/75 



0644 


P01B9 


6842 




STA* 


0645 


P018C 


OAFB 


SEC3A 


ENA 


0646 


P01BO 


69F0 




STA* 


0647 


P01BE 


OAFB 


SEC3B 


ENA 


0648 


P018F 


68ED 




STA* 


0649 


P01C0 


C833 


SEC3C 


LDA* 


0650 


P01C1 


5C05 




RTJ* 


0651 


P01C2 


C83A 


SEC3D 


LOA* 


0652 


PQ1C3 


5C03 




RTJ* 


0653 


P01C4 


C839 




LDA* 


0654 


PQ1C5 


5400 




RTJ- 


0655 


P31C6 


OOOO P 


XOUT 


ADC 


0656 


P01C7 


D8E5 




RAO* 


0657 


P01C8 


C8E4 




LOA* 


0658 


P01C9 


0101 




SA2 


0659 


P01CA 


18F5 




JMP* 


0660 


P01C3 


5CDF 


SEC3E 


RTJ* 


0661 


P01CC 


D8E1 




RAO* 


0662 


P01GO 


C8E0 




IDA* 


0663 


poice 


0101 




SA7 


0664 


P01CF 


18EE 




JMP* 


0665 


P01DO 


OA10 


SEC3F 


ENA 


0666 


P01D1 


5406 




RTJ- 


0667 


P0102 


18E9 




JMP* 


0668 


P0103 
P0104 


C800 
0087 




LDA 


0669 


P01D5 


one 




SAM 


0670 


P01D6 


0A01 




ENA 


0671 


P01O7 
PQ1D8 


6800 

0083 




STA 


0672 


P0ID9 
POIOA 


COOO 
8B0D 




LOA 


0673 


P01DB 


6820 




STA* 


0674 


POIDC 
POIDD 


COOO 
5654 




LOA 


0675 


P01DE 


681E 




STA* 


0676 


P01DF 


OAFO 




EN* 


0677 


P01E0 


68CD 




STA* 


0678 


P01E1 


180C 




JMP* 


0679 


P01E2 


C87A 


SEC3S 


LOA* 


0680 


P01E3 


0101 




SAZ 


0681 


P01E4 


1811 




JMP* 


0682 


P01E5 


0A01 




ENA 


0683 


P01E6 


6876 




STA* 


0684 


P01E7 
POIEB 


COOO 
8C0O 




LDA 


0685 


P01E9 


6812 




STA* 


0686 


P01EA 


OAFE 




ENA 


0687 


POIEB 


68C2 




STA* 


0688 


P01EC 


OAFD 




ENA 


0689 


P01EO 


68BF 




STA* 


0690 


PQIEE 
POIEF 


COOO 
464F 




LDA 



L2 

-4 

CNT1 

-4 

CNT 

MCOOE 

(XOUT) 

F2 

(XOUTt 

L? 

(0) 

OUT 

CNT 

CNT 

SEC3E- 

SEC3C 

CXCRLF 

CNT1 

CNT1 

SEC3F- 

SEC3B 

$10 

(JUMP) 

SEC3A 

FL1 



SEC3G-*- 

1 
FL1 

=N$8B0D 

MCOOE 
=N$5654 

F2 
-2 

CNT1 

SEC3B 

FL2 

1 

SEC3H 

1 

FL2 

=N*8C0D 

MCOOE 

-1 

CNT1 

-2 

CNT 

=N$464F 



LOAO LOOP COUNTER 
LOAD TAB COUNTER 

OUTPUT MOTION CODE, 



*-l 



*-l 



CARRIAGE RETURN, LINE FEED. 
UPDATE LOOP COUNT 



CHECK FOR REPEAT CONDITIONS 

REPEAT 



STORE VERTICAL TAB CODE 



00 644 
00645 
00646 
00647 
00648 
00649 
00650 
00651 
00652 
00653 
00 654 
00655 
00656 
00657 
00658 
00659 
00660 
00661 
00662 
00663 
00 664 
00 665 
00666 
00667 
00660 

00669 
00670 
00671 

00672 

00673 
00674 

00675 
00676 
00677 

00678 
00679 
00680 
00681 
00682 
00683 
00684 

00685 
00686 
00687 
00688 
00689 
00690 
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PAGE 


17 


0691 


P01F0 


680G 




STA* 


F2 


0692 


P01F1 
P01F2 


cooo 

52*0 




LDA 


=NS52*0 


0693 


PQ1F3 


68QA 




STA* 


L2 


069* 


P01F* 


18C8 




JMP* 


SEC3C 


0695 


P01F5 


OS** 


SF.C3H 


CLR 


A 


0696 


P01F6 


6865 




STA* 


FL1 


0697 


P01F7 


6865 




STA* 


FL2 


0698 


P01F8 


5C32 




RTJ* 


(XCRLF) 


0699 


P01F9 


18B2 


END3 


JMP* 


END2 


0700 


P01FA 


0000 


IND 


NUM 





0701 


POiFB 


0000 


MCOOE 


NUM 





0702 


POIFC 


0000 


F2 


NUM 





0703 


P01FO 


0000 


L2 


NUM 






DATFI 10/20/75 



CARRIAGE RETURN* LINE FEEO, 
GO TO ENO SECTION ROUTINE 



00691 
00692 

00693 
00 69* 
00 695 
00696 
00697 
00698 
00699 
00700 
00701 
00702 
00703 



0705 
0706 
0707 
0708 
0709 
0710 

0711 

0712 
0713 

071* 
0715 
0716 

0717 
0718 

0719 
0720 
0721 
0722 
0723 

072* 
0725 
0726 
0727 

0728 
0729 
0730 
0731 



P01FE 
P01FF 
P0200 
P0201 
P0202 
P02Q3 
P020* 
P0205 
P0206 
P0207 
P020 8 
P0209 
P020A 
P020 3 
P020C 
P020Q 
P020E 
P020F 
P0210 
P0211 
P0212 
P0213 
PQ21* 
P0215 
P0216 
P0217 
P0218 
P0219 
P021A 
P021Q 



6*00 
02E0 
COOO 
0616 
0C22 
5800 
0295 
08** 
68A7 
COOO 
072E 
6850 
5800 
FE7D 
ODFE 
0206 
0A18 
0C02 
5800 
FE90 
18F7 
0300 
C826 
6800 
0321 
Ofi** 
683F 
0AO1 
6800 
00C5 



♦SEC* 

•TYPE OUT RANDOM OATA TYPED IN 9Y OPERATOR 
SEC* STA* INTFLG 
LDA -X8H1 



SEC*3 



SEC*91 



ENQ 
RTJ 

CLR 

STA* 
LDA 

STA* 
RTJ 

INQ 
INP 
ENA 
ENQ 
RTJ 



JMP* 

NOP 
SFC*32 LOA* 
STA 

CLR 
STA* 

ENA 
STA 



CA=ZERO) 
FIRST WORO ADDRESS OF 



$22 
INTO 

A 

CNT1 
=X BLOCK 

INDi 
CON 



INSTRUCTION TO OPERATOR 

FIRST WORO ADDRESS 

CLEAR CONTROLLER-SELECT READ NODE 



SEC*B2-*-i INPUT FUNCTION SHOULD 8E REJECTED 



S18 

2 

STOP 

SEC*8i 


H808 
INTST 

A 

OF 

1 

INTFLG 



ERROR IF REPLY 
ERROR ROUTINE 
REPEAT INPUT 

<=S808) 

SET DATA FLAG FOR INPUT 



00 705 
00706 
00707 
00708 
00709 
00710 

00711 

00712 
00713 

0071* 
00715 
00 716 

00717 
00 718 

00719 

00720 
00721 
00722 
00723 

0072* 
00725 
00726 
00727 

00728 
00729 
0Q730 
00731 
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DATE! 10/20/75 



0732 


P021C 


683C 


0733 


P0210 


6900 




P021E 


one 


0734 


P021F 


0A16 


0735 


P0220 


6800 




P0221 


0315 


0736 


P0222 


0A14 


0737 


P0223 


5800 




P0224 


0336 


0738 


P0225 


5800 




P0226 


FE91 


0739 


P0227 


0844 


0740 


P0228 


6800 




P0229 


0113 


071*1 


P022A 


6800 




P0223 


0303 


0742 


P022C 


C881 


0743 


P022D 


0111 


0744 


P022E 


1825 


0745 


P022F 


COOO 




P0230 


072E 


0746 


P0231 


6828 


0747 


P0232 


E800 




P0233 


FF7A 


0748 


P0234 


0854 


0749 


P0235 


6800 




P0236 


FF76 


0750 


P0237 


5800 




P0238 


0378 


0751 


P0239 


COOO 


0752 


P023A 


0808 


0753 


P0239 


6800 




P023C 


02FB 


0754 


P0230 


0A16 


0755 


PQ23E 


68U0 




P023F 


02F7 


0756 


P0240 


0A01 


0757 


P0241 


6800 




P0242 


009E 


0758 


P0243 


6814 


0759 


P0244 


0A14 


0760 


P0245 


5800 




P0246 


0314 


0761 


P0247 


COOO 




P0248 


024B 


0762 


P0249 


6800 




P024A 


FOBA 


0763 


P024B 


C800 




P024C 


FF60 


0764 


P024D 


0101 


0765 


PQ24E 


5401 


0766 


P024F 


COOO 




P0250 


00 36 



SEC4G 



H808 



SEC4F 



SFC4S 



STA* 
STA 

ENA 
STA 

ENA 
RTJ 

RTJ 

CLR 
STA 

STA 

LOA* 

SAN 

JMP* 

IDA 

STA* 

loq 

TCQ 
STA 

RTJ 

LDA- 

NUM 

STA 

ENA 
STA 

ENA 
STA 

STA* 

ENA 

RTJ 

LOA 

STA 

LOA 

SAZ 

RTJ- 

LOA 



S4 

MRF 

$16 
INTREQ 

$14 
SEL 

RCH 

A 
MRF 

MOF 

CNT1 
1 

SEC4D 
=X8L0CK 

INOl 
CNT1 

A 
CNT 

CRLF 

, 

$808 
INTST 

$16 

INTREQ 

1 
INTFLG 

OF 

$14 

SEL 

=XS£C4F 

RETURN 

CNT 

SEC4G-*-l 
(CONTROL! 
=XCHBSY 



SET MANUAL INTERRUPT REOUEST FLAG 



REQUESTED INTERRUPTS 



SELECT DATA AND ALARM INTERRUPTS 



CLEAR FLAGS 



WAS DATA TYPED IN 
YES 
NO t GO TO END SECTION 



CARRIAGE RETURN,LINE FEED 



SET DATA FLAG FOR OUTPUT 
SELECT DATA AND ALARM INTERRUPTS 

CHANGE RETURN ADDR FOR SEC. V 



SKIP IF TYPEOUT IS COMPLETED 

RETURN TO MONITOR 

RESTORE RETURN ADDR FOR OTHERS 



00732 
00733 

00734 
00735 

00736 
00737 

00738 

00739 
00740 

00741 

00742 
00743 
00 744 
00745 

00 746 
00747 

00 748 
00749 

00750 

00751 
00752 
00 753 

00754 
00755 

00 756 
00757 

00758 
00759 
00760 

00761 

00762 

00763 

00764 
00 765 
00766 
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DATEI 10/20/75 



0767 


P0251 
P0252 


6800 
F082 




STA 


0768 


P0253 


0A10 


SEC<*0 


EN A 


0769 


P025<f 
P0255 


5800 
FE**0 




RTJ 


0770 


P0256 


18A2 


END*f 


JMP» 


0771 


P0257 


0000 


OF 


NUM 


0772 


P0258 


0000 


St» 


NUM 


0773 


P0259 


0000 


TND1 


NUM 


077«f 


P025A 


0000 


CNT2 


NUM 


0775 


P0259 


0000 


FLi 


NUM 


0776 


P025C 


0000 


FL2 


NUM 



RETURN 

$10 

OPF 

EN93 















SECTIONS, 

RE-SELECT ALARM INTFRRUPT 

GO TO END SECTION ROUTINE 



00767 

00768 
00 769 

00770 
00771 
00772 
00773 
0077<» 
00775 
00776 



0778 P025D 1800 
P025E 0089 



SEC5K 



JMP 



SEC6 



00778 



0780 




* 






0781 




♦SEC5 






0782 




* 






0783 




♦CHECK 


OUTPUT IN 


(KT1 MODF 


0781* 




» 






0785 P025F 


6(t00 


SEC5 


STAf 


FL3 


P0260 


02E<> P 








0786 P0261 


6800 




STA 


S68 


P0262 


02CE 








0787 P0263 


5800 




RTJ 


CNGST 


P026*f 


OOOB 








0788 P0265 


CO 76 




LDA- 


BIT11 


0789 P0266 


6800 




STA 


INTST 


P0267 


0200 








0790 P0268 


C800 




LOA 


MOO 


P0269 


FDCA 








0791 P026A 


010C* 




SAZ 


SEC5A2- 


0792 P0268 


C076 




LOA- 


CONSTfl 


0793 P026C 


5800 




RTJ 


SELKM 


P026O 


0355 








079^ P026E 


1815 




JMP» 


SEC5A3 


0795 P026F 


CQOO 


SEC5A2 


LOA 


-XBM2 


P0270 


0637 P 








0796 P0271 


0C17 




ENQ 


$17 


0797 P0272 


5800 




RTJ 


INTO 


P0273 


0226 








0798 P027^ 


0A01 




ENA 


1 


0799 P0275 


680 




STA 


MRF 


P0276 


00C6 








0800 P0277 


6869 




STA* 


INTFLG 


0801 P0273 


5800 


SEC5A1 


RTJ 


RCM 


P0279 


FE5E 








60220500 F 









CA=ZERO) 



CHANGE STOP/JUMP WORD 

(*800> 
STATUS BITS FOR REQUESTED INTERRUPTS 

IS TELETYPE A 1713 



SELECT (KT) MOOE 



INSTRUCTION TO OPERATOR 



RETURN CONTROL TO MONITOR 



00780 
00781 
00762 
00783 
00 78i» 
00785 

00786 

•♦•00787 

00768 
00769 

00790 

00791 
00792 
00793 

00 79<* 
00795 

00 796 
00797 

00798 
00799 

00600 
00801 
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PASF 



20 



DATE! iD/20/75 



0802 


P027A 


C800 


IDA 




P0273 


02B3 




0803 


P027C 


0111 


SAN 


080* 


P027D 


18FA 


JMP* 


0805 


P027E 


08** 


CLR 


0806 


P027F 


6800 


ST A 




P0280 


02AE 




0807 


P0281 


6800 


STA 




P0282 


OOBA 




0808 


P0283 


5800 SEC5A3 


RTJ 




P028* 


0332 




0809 


P0285 


cooo 


LOA 




P0286 


02E6 P 




0810 


P0287 


685A 


STA* 


0811 


P0288 


COOO SEC5A 


LOA 




P0289 


072E P 




0812 


P028A 


6853 


STA* 


0813 


P0283 


COOO 


LOA 




P028C 


FF26 




081* 


P028O 


6C22 


STA* 


0815 


P028E 


COOO 


LOA 




P028F 


1F00 




0816 


P0290 


0821 


TRA 


0817 


P0291 


0C01 


ENQ 


0818 


P0292 


C8*F SEC58 


LOA* 


0819 


P0293 


5*07 SEC5C 


RTJ- 


0820 


P029* 


EOOO 


LOQ 




P0295 


5F00 




0821 


P0296 


C850 


LOA* 


0822 


P0297 


A082 


AND- 


0823 


P0298 


0828 


AAN 


082* 


P0299 


01B1 


SNO 


0825 


P029A 


18F6 


JMP* 


0826 


P029B 


0830 


AAQ 


0827 


P029C 


01A1 


SOV 


0828 


H029O 


18F3 


JMP* 


0829 


P029E 


68** 


STA* 


0830 


P029F 


C8*5 


LOA* 


0831 


P02A0 


0118 


SAN 


0832 


P02A1 


C8*l 


LOA* 


833 


P02A2 


0FC8 


ALS 


083* 


P02A3 


60*2 


STA* 


0835 


P02A* 


DO08 SEC50 


RAO* 


0836 


P02A5 


CCOA 


LOA* 


0837 


P02A6 


010B 


SAZ 


0838 


P02A7 


083E 


RAO* 


0839 


P02AB 


18E8 


JMP* 


08*0 


P02A9 


C839 SEC501 


LDA* 


08*1 


P02AA 


8C3B 


ADD* 


08*2 


P02A9 


6C3A 


STA* 


08*3 


P02AC 


D839 


RAO* 


08** 


P02AO 


OC02 


RAO* 


08*5 


P02AE 


c*na 


LOA- 



MOF 

1 

SEC5A1 
A 
MOF 

MRF 

LOR 

= XRAN 

RANAOO 
=XBLOCK 

IN02 
-N-$D9 

(XWCNT) 
=NnF00 

M 

1 

RANAOO 

(GENRAN) 

=N$5F00 

RAN 

HFFOO 



1 

SEC5B-1 



1 

SEC59-1 

Tl 

FL3 

SEC5D1-*-! 

Tl 

8 

(IND2) 

(XWCNT) 

(XWCNT) 

SEC5E-*-l 

IN02 

SEC5B-1 

Tl 

(IN021 

(IND2) 

IND2 

(XWCNT) 

<0> 



PUNCH TAPE LEADER 

FIRST WORD AOORESS OF STORAGE 
WORD COUNT 
UPPER BOUNO 



STORAGE ADDRESS 

GENERATE RANDOM NUMBER 



(SFFOQ) KEEP UPPER CHARACTER 



UPDATE STORAGE AOORESS 
GENERATE ANOTHFR NUMBER 

FILL UPPFR 8 BITS OF STORAGE ADDRESS 



00802 

00803 
0080* 
00805 
00806 

00807 

00808 

00809 

00810 
00811 

00812 
00813 

0081* 
00815 

00816 
00817 
00818 
00819 
00820 

00821 
00822 
00823 
0082* 
00825 
00826 
00827 
00828 
00829 
00830 
00831 
00832 
00833 
0083* 
00835 
00836 
00837 
00838 
00839 
008*0 
008*1 
008*2 
008*3 
008** 
008*5 
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PA3 


08*6 


P02AF 


0333 P 


XWCNT 


ABC 


08*7 


P0280 


0105 




SAZ 


08*8 


P0281 


18DF 




JMP* 


08*9 


P0292 


C832 


SEC5E 


LDA* 


0850 


PQ233 


0112 




SAN 


0851 


P02B* 


D830 




RAO* 


0852 


P02B5 


18D2 




JMP* 


0853 


P02B6 


OAFft 


SEC5F 


EN A 


085* 


P02B7 


682C 




STA* 


0855 


PQ2B8 
P02B9 


C000 
072E P 




LOA 


0856 


P02BA 


6828 




STA* 


0857 


P02B9 
P02BC 


cooo 

8O0A 


SEC5F1 


LOA 


0858 


P0280 


6C28 




STA* 


0859 


P028E 


0825 




RAO* 


0860 


P02BF 


C82* 




LOA* 


0861 


P02C0 


010* 




SAZ 


0862 


P02C1 


0A2* 




ENA 


0863 


P02C2 


8823 




ADD* 


086* 


P02C3 


6822 




STA* 


0865 


P02C* 


18F6 




JMP* 


0866 


P02C5 
P02C6 


COOO 

072E P 


SEC5G 


LOA 


0867 


P02C7 


681E 




STA* 


868 


P02C8 
P02C9 


COOO 

FF26 




LOA 


0869 


P02CA 


6871 




STA* 


0870 


P02CB 


CC1A 


SEC5H 


LnA* 


0871 


P02CC 
P02CO 


5800 
FE02 




RTJ 


0872 


P02CE 


08 17 




RAO* 


0873 


P02CF 


086C 




RAO* 


087* 


P0200 


C86B 




LDA* 


875 


P02D1 


0101 




SAZ 


0876 


P0202 


18F8 




JMP* 


0877 


P02D3 
P02D* 


5800 
02E2 


SEC5J 


. RTJ 


0878 


PQ205 


08** 




CLP 


0879 


P02O6 


680E 




STA* 


0880 


PQ2D7 


CG/5 




LDA- 


0881 


P02D3 

PQ2D9 


5*00 
02t9 




RTJ 


0832 


P020A 
P02DB 


5800 
0300 




RTJ 


0833 


P02OC 

P02DO 


5800 
0060 




RTJ 


083* 


P02OE 
P02DF 


i*on 

00*0 P 


END5 


JMP* 


0885 


P02E0 


0000 


INTFLG 


NUM 


0886 


P02E1 


0000 


RANAOD 


NUM 


0*87 


P02E2 


0000 


Tl 


NUM 


0888 


P02E3 


0000 


RHNT 


NUM 



21 



OATEl 10/20/75 



WON?. 

SEfl5F-*-l 

SEC5B-1 

FL3 

SEC5F-*-l 

FL3 

SEC5A 

-7 

RCNT 

=XBLOCK 

IN02 

^n^booa 

<IND2> 

RCNT 

RCNT 

SEC5G-*-! 

$2* 

IN02 

IND2 

SEC5F1 

=XBLOCK 

IN02 
=N-$09 

WCNT 

(IN02) 
OUT 

IN02 

WCNT 

WCNT 

SEC5J-*-l 

SEC5H 

LOR 

A 
FL3 

CONSTflO 
SELKM 

WAITINT 

RSTJP 

END 








CARRIAGE, RETURN 

AT ENO 
OF EACH 
LINE 



FIRST WORO ADDRESS OF BUFFER 



OUTPUT ONE WORO 

UPDATE STORAGF ADDRESS 

UPDATE WORO COUNT 



PUNCH TAPE LEADER 



CLEAR FLAG 
SELECT IK» MOOF 



OPERATOR SELECTS (K) MODE 

RESTORE STOP/JUMP WORD 

GO TO ENO SECTION ROUTINE 



008*6 
00 8t»7 
008*8 
008*9 
00850 
00851 
00852 
00853 
0085* 
00855 

00856 
00857 

00858 
00859 
00660 
00861 
00862 
00863 
0086* 
00865 
00866 

00867 
00868 

00869 
00870 
00871 

00872 
00873 
0087* 
00875 
00876 
00877 

00878 
00879 
00880 
00881 

00882 

***00883 

0088* 

00885 
00886 
00887 
00888 
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OATEt 10/20/75 



0889 P02E4 0000 FL3 NUM 

0890 P02E5 0000 IN02 NUM 
0891. PQ2E6 0000 RAN NUM 0. 



00889 

00890 
00891 



0893 


* 








889* 


♦SEC6 








0895 


• 








0896 


•CHECK 


INPUT IN 


<T> OR (KT) 


MODE. 


0897 


♦ 








0898 P02E7 6400 


SEC6 


STA* 


EOT 


(A=2ERO) 


P02E8 0538 P 










0899 P02E9 5800 




RTJ 


CNGST 


CHANGE STOP/JUMP WORD 


P02EA 0055 










0900 P02EB 0A02 




ENA 


$2 




0901 P02EC 6800 




STA 


INTREQ 




P02EO 02*9 










0902 P02EE 6800 




STA 


S68 


SET FLAG 


P02EF 0241 










0903 P02F0 684E 




STA» 


S6 




0904 P02F1 E800 




LOQ 


MOD 


IS TELETYPE A 1713 


. P02F2 F041 










09.05 P02F3 0158 




SQN 


SEC6A5-»-l YES 


0906 P02F4 C000 




LDA 


=XBM4 




P02F5 0664 P 










0907 P02F6 OCOF 




ENQ 


15 




0908 P02F7 5C09 




RTJ» 


<XINT01 




0909 P02F3 C000 




LDA 


=XBM5 




P02F9 068C P 










0910 P02FA OCOF 




ENQ 


15 




0911 P02FB 5C05 




RTJ» 


(XINTOI 




0912 P02FC C000 


SEC6A5 


LDA 


3XBM4A 




P02FO 067F P 










0913 P02FE 0C8D 




ENQ 


13 


, . .... 


0914 P02FF 5400 




RTJ- 


(0) 




0915 P0300 0499 P 


XINTO 


AOC 


INTO 




0916 P 301 CO 77 




LDA- 


C0NST*12 


SELECT CT> MODE 


0917 P0302 5800 




RTJ 


SELKM 




P0303 02BF 










0918 P0304 COOO 


SEC6A1 


LDA 


=XBL0CK1 




P0305 0807 P 










0919 P0306 6837 




STA* 


IN04 


FIRST WORD AOORESS OF STORA 


0920 P0307 E800 


SEC6A 


LDQ 


OIRi 




P0308 FOES 










0921 P0309 C074 




LDA- 


C0NST*9 




0922 PQ30A 03FE 




OUT 


-1 


SELECT REAO MODE 


0923 P0309 6833 




STA» 


S6 




0924 P030C C800 




LDA 


MODI 


1712 ONLY 


P030O F027 










0925 P030E 0113 




SAN 


3 




0926 P030F 0A10 




ENA 


$10 





00893 
00894 
00895 
00896 
00897 
00898 

•♦•08899 

00900 
00901 

00902 

00903 
00904 

00985 
00906 

00907 
00908 

00909 

00910 
00911 
00912 

00913 
00914 
00915 
00918 
00917 

00 918 

00919 
00920 

00921 
00922 
00923 
00924 

00925 
00926 
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DATEl 10/20/75 



0927 


P0310 
P0311 


5800 
0249 




RTJ 


0928 


P0312 
P0313 


5800 
024F 


SFC60 


RTJ 


0929 


P0314 


0844 




CLR 


0930 


P0315 
P0316 


6800 
0222 




STA 


0931 


P0317 


02PE 


SEC601 


INP 


0932 


PQ318 


A06F 




AND- 


0933 


P0319 


0111 




SAN 


0934 


P031A 


18FC 




JMP* 


0935 


P0318 


C075 




LDA- 


0936 


P031C 
P031D 


5800 
02A5 




RTJ 


0937 


P031E 
P031F 


5800 
023C 




RTJ 


0938 


P0320 
P0321 


COOO 
072E P 




LOA 


0939 


P0322 


68 68 




STA* 


0940 


P0323 
P0324 


COOO 
0807 P 




LDA 


0941 


P0325 


6818 




STA* 


0942 


P0326 
P0327 


COOO 
FF26 




LOA 


0943 


00128 


6813 




STA* 


0944 


P0329 


CC14 


SEC6A2 


LOA* 


0945 


P032A 


9C63 




SUB* 


946 


P032B 


0102 




SAZ 


0947 


P032C 
P032D 


5800 
015F 




RTJ 


0948 


P032E 


D80p 


SEC63 


RAO* 


0949 


P032F 


C80C 




LOA* 


0950 


P0330 


0103 




SAZ 


0951 


P0331 


080C 




RAO* 


0952 


P0332 


08 5B 




RAO* 


0953 


P0333 


18F5 




JMP* 


0954 


P0334 


0844 


SEC6C 


CLR 


0955 


P0335 


6809 




STA* 


0956 


P0336 

P0337 


6800 

01F9 




STA 


0957 


P0338 
P0339 


5800 
0011 




RTJ 


0958 


P033A 


18A3 


EN06 


JMP* 


0959 


P0333 


0000 


WCNT 


NUM 


0960 


P033C 


0000 


MRF 


NUM 


0961 


P033D 


0000 


IN04 


NUM 


0962 


P033F 


0000 


S6 


NUM 



SEL 

INPA 

A 
FOT 



C0NSTf4 
1 

SEC6D1 

CONST+10 

SELKM 

WAITINT 

=XBLOCK 

IND3 
=XBL0CK1 

IN04 

=N-$09 

WCNT 

(IND4) 

(IN03I 

SEC6B-*-l 

CERR 

WCNT 

WCNT 

SEC6C-*-l 

IN04 

IN03 

SEC6A2 

A 

S6 

S68 

RSTJP 

ENH5 











SELECT ALARM INTERRUPT 
INPUT DATA 



STATUS 

CHECK FOR EOP STATUS 



SELECT (K) MOOE 

OPERATOR SELECTS <K> MOOE 
FIRST WO*D ADDRESS OF BUFFER 



COHPARE ACTUAL 

AND EXPECTED DATA 
WORD COUNT 

WORD COUNT 



DATA COMPARE ERROR 
UPDATE WORD COUNT 

UPDATE STORAGE AOORESS 



RESTORE STOP/JUMP WORD 

GO TO END SECTION ROUTINE 



00927 

00928 

00929 
00930 

00931 
00932 
00933 
00934 
00935 
O0936 

00 937 

00938 

00939 
00940 

00941 
00942 

00943 
00944 
00945 
00946 
00947 

00948 
00949 
00950 
00951 
00952 
00953 
00954 
00955 
00956 

***00957 

00958 
00959 
00960 
00961 
00962 



0964 P033F 0000 

0965 P0340 CC08 



CNGST 



NUM 
LDA* 



(MSTJP1 



CHANGE SYSTEM STOP JUMP WORD 



***00964 
***00965 
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TH 


roos 




PAGE 


Zk 


0966 


PQ3M 


6808 




STA» 


MSTJPfl 


0967 


P03^2 
P03*3 


A000 
FEF7 




AND 


=N$FEF7 


0968 


P03<^ 
P03*5 


ROOO 
0108 




EOR 


-N$108 


0969 


P03<*6 


6C02 




STA» 


(MSTJP) 


0970 


P03*>7 


1CF7 




JMP* 


(CNGST) 


0972 


P03*f8 


003A 


MSTJP 


NUH 


$BA 


0973 


P03«f9 


0000 




NUM 





0975 


P03^A 


0000 


RSTJ" 


NUM 





0976 


P03«iB 


C8F0 




LDA* 


MSTJPfl 


0977 


P03«>C 


6CFB 




STA» 


(MSTJP) 


0978 


P03^0 


1CFC 




JMP» 


CRSTJP1 


0980 






* 






0981 






•SEC7 






0982 






♦ 






0983 






•CHECK 


OUTPUT- 


(TTR1 MODF 


098<t 






* 






0985 


P034E 
P03tfF 


6<tOO 
0530 P 


SEC7 


STA* 


S68 


0986 


P0350 
P0351 


5800 
FFEO 




RTJ 


CNGST 


0987 


P0352 


C076 




LOA- 


BIT11 


0988 


P0353 

P035«» 


6800 
01E3 




STA 


INTST 


0989 


P0355 

P0356 


C800 
FCOO 




LDA 


Mon 


0990 


P0357 


0101* 




SAZ 


SEC7A2- 


0991 


P0358 


C079 




LOA- 


CONST+1- 


0992 


P0359 

P0354 


5300 

0268 




RTJ 


SELKM 


993 


P035B 


1813 




JMP* 


SEC7A3 


099<» 


P035C 
P035O 


COQQ 
Qb**Q P 


SEC7A? 


LDA 


=XBM3 


0995 


PQ35E 


0C18 




ENQ 


$18 


0996 


P035F 


5CAQ 




RTJ* 


(XTNTOJ 


0997 


P0360 


OA01 




ENA 


1 


0998 


P0 361 
P0362 


6800 
FF70 




ST<\ 


INTFLG 


0999 


P0363 


6808 




STA* 


MRF 


1000 


P036<f 
P0365 


5800 
FD52 


SEC7A1 


RTJ 


RCH 


1001 


P0365 
P0367 


C800 
01C7 




LOA 


MOF 



DATEI 10/20/75 



SAVE ORIGINAL STOP/JUMP WORD 



ADD OMIT TYPEOUTS,SOOP ON ERRORS 



LOCATION OF MONITORS STJPWORO 
ORIGINAL STOP/JUMP WORD 



♦••00966 
►00967 



•••00968 

•♦•00969 
•••00970 



•♦•00972 

•••00973 



♦•♦00975 

••♦00976 

RESTORE ORIGINAL STOP/JUMP TO MONITO^^00977 

♦♦♦00978 



00980 
00981 
00982 
00983 
0098* 
00985 



CA=ZEROI 

CHANGE STOP/JUMP WORO 

(♦800) 
STATUS BITS FOR REQUESTED INTERRUPTS 

IS TELETYPE A 1713 

NO 

SELECKTTR) MODE 



WORD COUNT 

INSTRUCTION TO OPERATOR 

RETURN CONTROL TO MONITOR 
CHECK FOR MANUAL INTERRUPT 



♦♦♦00986 

00987 
00988 

00989 

00990 
00991 
00992 

00993 
•••0099* 

00995 

00996 

00 997 

•♦♦00998 

♦♦♦00999 
01000 

01001 
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DATEt 10/20/75 



1002 
1003 
1004 
1005 

1006 
1007 

1008 

1009 
1010 

1011 
1012 

1013 
1014 
1015 
1016 

1017 
1018 
1019 
1020 
1021 
1022 
1023 

102f* 
1025 

1026 

1027 

1028 
1029 
1030 



P0368 
P0369 
P036A 
P036B 
P036C 
P036D 
P0 36E 
P036F 
P0370 
P0371 
P0372 
P0373 
P0374 
P0375 
P0376 
P0377 
P0378 
P0379 
P037A 
P037EJ 
PQ37C 
P037Q 
P037E 
P037F 
PQ380 
P0381 
P0382 
P0383 
P0334 
P0385 
P0386 
P0387 
P0388 
P0189 
P038A 
PQ38B 
P038C 
P038D 
PQ3BE 



0111 

18FA 

0844 

6800 

01C2 

68CE 

5800 

0247 

C000 

0OF5 P 

68 IB 

C000 

072E P 

68C7 

EOOO 

FF26 

48C2 

CC14 

6CC2 

5800 

FT153 

D88D 

C88C 

0103 

D80U 

DflBB 

18F6 

5800 

0232 

C075 

5800 

023B 

5800 

0252 

5800 

FFBE 

18AD 

0000 

0000 



SFC7A3 



SEC7A 



SEC79 



END7 
IN03 
TEMP 



SAN 
JMP* 
CLR 
STA 

STA* 
RTJ 

LOA 

STA* 
LOA 

STA* 

LOO 

STQ* 
LOA* 
STA* 
RTJ 

RAO* 

LOA* 

SA7 

RAO* 

RAO* 

JMP* 

RTJ 

LDA- 
RTJ 

RTJ 

RTJ 

JMP* 

NUM 

NUM 



1 

SEC7A1 
A 
MOF 

MRF 
LOR 

=XSEC0 

IND3 
=XBLOCK 

ind4 

=N-$09 

HCNT 
<IND3> 

<IND4> 
OUT 

WCNT 

WCNT 

SEC7B-*-l 

TND3 

IND4 

SEC7A 

LDR 

CONSTUtl 
SELKM 

WAITINT 

RSTJP 

EN06 







FIRST WORD ADDRESS OF TEST 

WORD COUNT 
WORD COUNT 

UPDATE WORD COUNT 

UPDATE STORAGE AOORESS 

PUNCH OUT TAPE LEADER 
SELECT (K) MODE 

OPERATOR SELECTS CIO MODE 

RESTORE STOP/JUMP WORD 

GO TO ENO SECTION ROUTINE 



01002 
01003 
01004 
01005 

01006 
01007 

01008 

01009 
01010 

01011 
01012 

01013 
01014 
01015 
01016 

01017 

01018 
01019 
01020 
01021 
01022 
01023 

01024 
01025 

01026 

*»*01027 

01028 
01029 
01030 



1032 






* 




1033 






*SEC8 




1034 






* 




1035 






*CHECK 


INPUT-(TTS) MODE 


1036 






* 




1037 


P038F 
P0390 


6 <*00 
0538 P 


SEC8 


STA* EOT 


1038 


P0391 


68 AC 




STA* S6 


1039 


P0392 
PD393 


58 
FFAB 




RTJ CNGST 



<A=ZER01 



CHANGE STOP/JUMP WORD 



01032 
01033 
01034 
01035 
01036 
01037 

01038 
♦♦♦01039 
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DATEI 10/20/75 



1040 
1041 

1042 
1043 

10«»^ 

1045 
1046 
1047 
1048 

1049 

1050 

1051 
1052 

1053 

1054 
1055 

1056 

1057 
1058 

1059 
1060 

1061 

1062 
1063 

1064 

1065 
1066 

1067 

1G68 

1069 

1070 
1071 
1072 



P0394 
»0395 
P0396 
P0397 
P0398 
P0399 
P039A 
P0398 
P039C 
P039Q 
P039E 
P039F 
P03Afl 
P03A1 
P03A2 
PQ3A3 
P03A4 
P03A5 
P03A6 
P03A7 
P03A8 
P03A9 
P03AA 
P03AB 
P03AG 
P03AD 
P03AE 
P03AF 
P0380 
P0381 
P0382 
P03B3 
P03B4 
P03B5 
P03B6 
P03B7 
P03B8 
P03B9 
P03BA 
P03BB 
P03BC 
P038U 
P03BE 
P033F 
PQ3C9 
P03CI 
PQ3C2 
P03C3 
PQ3C4 
P03C5 
P03C6 
P03C7 
PQ3C8 



OA02 
6800 
QIAO 
6864 
6800 
0197 
C800 
FC96 
A072 
0115 
CO 75 
5800 
0222 
5800 
0239 
COOO 
0664 
0C11 
5800 
00F2 
COOO 
067F 
OCOC 
5300 
OOED 
E800 
FC85 
015C 
COOO 
0675 
OCOB 
5800 
00E5 
COOO 
062C 
OCOB 
5800 
OOEO 
5800 
0220 
C078 
5300 
0201* 
COOO 
0807 
6800 
FF7A 
E800 
F02F 
C074 
03FE 
C800 
FC6C 



SEC8A4 



SEC80 



SEC8A 



ENA 
STA 

STA» 
STA 

LOA 

ANH- 
SAN 
LDA- 
RTJ 

RTJ 

LOA 

ENQ 
RTJ 

LOA 

ENQ 
RTJ 

LOQ 

sqn 

LOA 

ENQ 
RTJ 

LOA 

ENQ 
RTJ 

RTJ 

LOA- 
RTJ 

LOA 

STA 

LOQ 

LOA- 
OUT 

LOA 



$2 
INTREQ 

S8 
S68 

SECTNS 

CONST+7 
SEC8A4-*- 
CONSTf 10 

SELKM 

WAITTNT 

=XBM4 

17 
INTO 

=XBM4A 

12 
INTO 

MOO 

SEC80 
=XBM4+17 

11 
INTO 

=XBMl+22 

11 
INTO 

HAITINT 

CONST+13 
SELKM 

=XBL0CK1 

IND4 

DIR1 

CONSTi-9 

-1 

HOOl 



SET FLAG 



WAS SECTION 7 SELECTED 
1 YES 

SELECT <K> MODE 



OPERATOR SELECTS (K) MODE 



LOAD TAPE PUNCHED IN SECTION 7 MSG 
INSTRUCTION TO OPERATOR 



RUN PAPER TAPE READER MSG 
INSTRUCTION TO OPERATOR 

IS A 1713 UNDER TEST 

SKIP IF YES 

HERE IF 1712 OR 1713 MANUAL MODE 

SELECT TTS MODE MSG 



PRESS MANULL INTERRUPT MSG 

WAIT FOR OPERATOR RESPONSE 
SELECT TTS MODE- 1713 OMLY 



SELECT READ MOOE 
1712 ONLY 



01040 
01041 

01042 
01043 

01044 

01045 
01046 
01047 
01048 

01049 

01050 

♦♦♦01051 
01052 

♦♦♦01053 

♦♦♦01054 
01055 

♦♦♦01056 

♦♦♦01057 

♦♦♦01058 

♦♦♦01059 
♦♦♦01060 

♦♦♦01061 

♦♦♦01062 
♦♦♦01063 

♦♦♦01064 

♦♦♦01065 
♦♦♦01066 

♦♦♦01067 

♦♦»01068 

01069 

01070 
01071 
01072 
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OATEt 10/20^75 



1073 


P03C9 


0113 




SAN 


1074 


P03CA 


0A10 




ENA 


10 75 


P03CB 
P03CC 


5800 
018E 




RTJ 


1076 


P03CD 
P03CE 


5800 
0194 


SECAA5 


RTJ 


1077 


P03CF 


0844 




CLR 


1078 


P03DO 
PQ3D1 


6800 
0167 




STA 


1079 


P03D2 


02FE 


SEC8A7 


INP 


1080 


P0303 


A06F 




AND- 


lost 


PQ3D4 


0111 




SAN 


1082 


P03O5 


18FC 




JMP* 


1083 


P03D6 
P0307 


COOO 
0807 P 


SFC8A6 


LOA 


1084 


P03D8 
P0309 


6800 
FF63 




STA 


1085 


P03DA 
P03D3 


COOO 
072E P 




LOA 


1086 


P030C 


6880 




STA* 


1087 


P03DH 
P030E 


EOOO 
FF26 




LDQ 


1088 


P03DF 
P03E0 


4800 
FF5A 




STQ 


1089 


PQ3E1 


C075 




LDA- 


1090 


P03E2 
P03E3 


5800 
010F 




RTJ 


1091 


P03E4 

P03E5 


5800 
01F6 




RTJ 


1092 


P03E6 
P03E7 


CCOO 
FF55 


SEC8A3 


LDA 


1093 


P03E8 


9CA4 




SU3* 


1094 


P03E9 


0102 




SAZ 


1095 


P03EA 
P03EB 


5800 
00A1 




RTJ 


1096 


P03EC 
P03ED 


O800 
FF4F 


SEC83 


RAO 


1097 


P03EE 


089E 




RAO* 


1098 


P03EF 
P03F0 


0800 
FF4A 




RAO 


1099 


P03F1 
P03F2 


C800 
FF48 




LOA 


1100 


P03F3 


0101 




SAZ 


1101 


P03F4 


18F1 




JMP* 


1102 


P03F5 


6806 


SECSC 


STA* 


1103 


P03F6 
P03F7 


6800 
0139 




STA 


1104 


P03F8 
PQ3F9 


5800 
FF50 




RTJ 


1105 


P03FA 


1891 


END8 


JMP* 


1106 


P03F3 


0000 


S8 


NUM 



3 

$10 
SEL 

INPA 

A 
EOT 



C0NST«-4 
1 

SEC8A7 
=X9L0CK1 

IN04 

=X9L0CK 

IN03 
=N-$09 

WCNT 

CONST4-10 

SELKM 

WAITINT 

CIND41 

(IND3* 

SEC8B-*-! 

CERR 

IND4 

IND3 
WCNT 

WCNT 

SEC8C-*-l 

SEC8A3 

S8 

S68 

RSTJP 

END7 




SELECT ALARM INTERRUPT 
INPUT DATA 



STATUS 

CHECK FOR EOP STATUS 



WORD COUNT 

SELECT (K) MODE 

OPERATOR RE-SELECTS ( K) MODE 
COMPARE ACTUAL AND EXPECTEO OATA 

OATA COMPARE ERROR 
UPDATE STORAGE AOORESS 

UPDATE WORD COUNT 



CLEAR FLAG 

RESTORE STOP/JUMP WORD 

GO TO END SECTION ROUTINE 



01073 
01074 
01075 

01076 

01077 
01078 

01079 
01080 
01081 
01082 
01083 

***01084 

01085 

01086 
01087 

01068 

01089 
01090 

01091 

01092 

01093 
01094 
01095 

01096 

01097 
01098 

01099 

01100 
01101 
01102 
01103 

***01104 

01105 
01106 
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DATE* 10/20/75 



1108 
1109 
1110 
1111 
1112 
1113 

1114 
1115 
1116 

1117 
1118 
1119 
1120 
1121 
1122 

1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 

1146 
1147 

1148 

1149 
1150 
1151 
1152 
1153 



P03FC 
P03FQ 
P03FE 
P03FF 
P0400 
P0401 
P0402 
P0403 
PQ404 
P0405 
P0406 
P0407 
P0408 
P0409 
P040A 
P0403 
P040C 
P040O 
P040E 
P040F 
P0410 
P0411 
P0412 
P0413 
P0414 
P0415 
P0416 
P0417 
P0418 
P0419 
P041A 
P0418 
P041C 
P0410 
P041E 
P041F 
P0420 
P0421 
P0422 
P0423 
P0424 
P0425 
P0426 
P0427 
P0428 
P0429 
P042A 



5400 

05B0 P 

C82E 

682C 

C00O 

FF4B 

6826 

OAOB 

6825 

C826 

0FC8 

5800 

FCC7 

081F 

C81E 

0109 

0810 

C81C 

0101 

18F5 

0A10 
5406 
18EC 
18EE 
C815 
0115 
C816 
6813 
0811 
5CE2 
18E4 
0844 
6800 
C073 
6800 
0117 
0A12 
6800 
0113 
5800 
0114 
5CD6 
1802 
0000 
0000 
0000 



•SEC9 

♦WORST PATTERNS 

SEC9 RTJ* 

LDA* 
STA* 
SEC9A LOA 



C2I 



SEC99 
SEC9C 



SEC90 



SEC9E 



EN09 
CNT3 
CNT4 
FL4 



STA* 

ENA 

STA* 

LDA* 

ALS 

RTJ 

RAO* 

LOA* 

SAZ 

RAO* 

LDA* 

SAZ 

JMP* 

RTJ* 

ENA 

RTJ- 

JMP* 

JMP* 

LOA* 

SAN 

LOA* 

STA* 

RAO* 

RTJ* 

JHP* 

CLR 

STA* 

LOA- 

STA 

ENA 
STA 

RTJ 

RTJ* 

JMP* 

NUM 

NUN 

NUM 



CRLF 

PAT1 
COOE 
=N-SB4 

CNT3 
-S24 
CNT4 

CODE 

8 

OUT 

CNT3 

CNT3 

SEC90-*-! 

CNT4 

CNT4 

1 

SEC9C 

(SEC9+1J 

$10 

(JUMP) 

SEC9A 

SEC9B 

FL4 

SEC9E-*-l 

PAT2 

COOE 

FL4 

CSEC9fl) 

SEC9A 

A 

FL4 

C0NST*8 

INTST 

$12 

INTREQ 

CLRINT 

(SEC9M) 

EN08 









CARRIAGE RETURN, LINE FEEO. 



WORDS PER LINE 



C=CRLF1 



CARRIAGE RETURN, LINE FEEO 



CHECK FOR REPEAT CONDITIONS 
REPEAT 



(aCRLFI CARRIAGE RETURN, LINE FEED 



REQUESTED INTERRUPTS 



CLEAR INTERRUPTS 



(=CRLF) 



CARRIAGE RETURN, LINE FEEO 
GO TO ENO SECTION ROUTINE. 



01106 
01109 
OHIO 
01111 
01112 
01113 

01114 
01115 
01116 

01117 
01118 
01119 
01120 
01121 
01122 

01123 
01124 
01125 
01126 
01127 
01128 
01129 
01130 
01131 
01132 
01133 
01134 
01135 
01136 
01137 
01136 
01139 
01140 
01141 
01142 
01143 
01144 
01145 

01146 
01147 

01148 

01149 
01150 
01151 
01152 
01153 
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DATE! 10/20/75 



115V P0V29 0000 CODE NUM 

1155 PQV2C 552A PAT1 NUM $552A 

1156 P0V2D V63D PAT2 NUM $V63D 

1157 P0V2E 0707 PAT3 NUH $707 



0115V 
01155 
01156 
01157 



1160 






* 




1161 






•SEC10 




1162 






* 




1163 






•CHECK 


END OF 


116V 






* 




1165 


P0V2F 


OA01 


SEC10 


ENA 


1166 


P0V30 
P0V31 


6800 
0105 




STA 


1167 


P0V32 
P0V33 


6800 
F058 




STA 


1168 


PQV3V 
P0V35 


5800 
010V 




RTJ 


1169 


PQV36 


OACD 




ENA 


1170 


P0V37 
P0V38 


6800 
FD75 




STA 


1171 


P0V39 


COOO 




LDA- 


1172 


P0V3A 


0810 


H810 


NUH 


1173 


PQV3B 
P0V3C 


6800 
OOFB 




STA 


117V 


P0V33 


08VV 


SEC10M 


CLR 


1175 


PQV3E 
P0V3F 


6800 
OOFV 


'* 


STA 


1176 


POVVO 


CO 73 




LOA- 


1177 


P0VV1 
P0VV2 


5800 
FC53 




RTJ 


1178 


P0VV3 


0AV5 


SECIOB 


ENA 


1179 


PQVVV 
P0VV5 


E800 
FCAO 




LDQ 


1180 


P0VV6 


0302 




OUT 


1181 


PQVV7 


1808 




JMP* 


1182 


PQVV8 


1802 




JMP* 


11*53 


P0VV9 


18F9 


SEC10C 


JMP* 


118V 


?>QVVA 


0A18 


SEC10O 


ENA 


1185 


P0VV8 


QCOV 




ENQ 


1186 


POVVC 


5V0G 




RTJ- 


1187 


POVVO 


00A2 P 


XSTOP 


ADC 


1188 


POVVE 


18FV 




JMP» 


1189 


POVVF 


0A01 


SEC10F 


ENA 


1190 


P0V50 
P0V51 


6800 
FE8E 




STA 


1191 


P0V52 
P0V53 


6800 
OOOC 




STA 




60220500 F 







1 
INTREQ 




Fl 




CLRINT 


CLEAR INTERRUPTS 


-S32 

CNT1 






$810 

INTST 




A 
EOF 


CLEAR FLAG 


BITS 
OPF 


SELECT W*ITE MODE 


*V5 
OIRO 


CHARACTER CODE) El 


SEC10C-* 
SECIOF 
SEC10O 
SECIOB 

ns 

V 

(0) 

STOP 

SEC103 

1 

INTFLG 


-1 

REPLY 

INTERNAL REJECT 

EXTERNAL REJECT 

ECC-INTE*NAL REJE 
ERROR S 



S10 



01160 
01161 
01162 
01163 
0116V 
01165 
01166 

01167 

01168 

01169 
01170 

01171 
01172 
01173 

0117V 
01175 

01176 
01177 

01178 
01179 

01180 
01181 
01182 
01103 
0118V 
01185 
01186 
01107 
01186 
01189 
01190 

01191 



PAGE 29 



TH 


roos 




PAGE 


?0 


1192 P0%5% 


OA08 




ENA 


$8 •- 


1193 P0%55 


5800 




RTJ 


SEL 


P0%56 


010*i 








119% P0%57 


5800 




RTJ 


RCM 


P0%58 


FC5F 








1195 P0%59 


C800 




LDA 


EOF 


P0%5A 


00D9 








1196 PO%50 


0113 




SAN 


SEC10G-*-l 


1197 P0%5C 


0A18 




ENA 


$18 


1198 PO%50 


0C29 




ENQ 


$29 


1199 P0%5E 


5CEE 




RTJ* 


(XSTOP) 


1200 P0%5F 


D8Q0 


SEC10G 


RAO 


CNT1 


P0%60 


F0%0 








1201 P0%61 


C80Q 




LOA 


CNT1 


P0%62 


FD%B 








1202 P0%63 


0101 




SAZ 


1 


1203 P0%6% 


1808 




JMP* 


SEC10M 


120% P0%65 


08%% 


SEC10H 


CLR 


A 


1205 P0%66 


6800 




ST A 


Fl 


P0%67 


F02% 








1206 PQ%68 


6800 




STA 


S10 


P0%69 


0OC6 








1207 P0%6A 


5C92 




RTJ* 


(SEC9M) 


1208 P0%6B 


18BB 


END1Q 


JMP* 


■ END9 



DATEI 10/20/75 

SELECT EOP INTERRUPT 

GO TO HONITOR 

CHECK FOR EOP INTERRUPT 



ECC-EOP INTERRUPT 010 NOT OCCUR 

ERROR STOP 
UPOATE COUNTER 



REPEAT 50 TIMES 



(=CRLFI 



CARRIAGE RETURN, LINE FEEO 
GO TO ENO SECTION ROUTINE. 



01192 
01193 

0119% 

01195 

01196 
01197 
01198 
01199 
01200 

01201 

01202 
01203 
0120% 
01205 

01206 

01207 
01208 



1211 






, • 


1212 






*SEC11 


1213 






* 


121% 






♦RING 


1215 






#. 


1216 


P0%6C 


E%00 


SEC11 




PO%60 


0033 P 


1217 


P0%6E 


085% 




1218 


P0%6F 


68B8 




1219 


P0%70 


C8C9 




1220 


P0%71 


6800 






P0%72 


00C5 




1221 


P0%73 


0A11 




1222 


P0%7% 


6800 






PQ%75 


00C1 




1223 


PQ%76 


08%% 




1224 


P0%77 


6800 






P0%78 


003A 




1225 


P0%79 


0A10 




1226 


P0%7A 


5800 






P0%73 


00OF 





♦RING BELL TO CHECK FOR ELECTRONIC NOISE 



LOQ* 

TCQ 
STA* 

LDA* 
STA 

ENA 
STA 

CLR 
STA 

ENA 
RTJ 



COUNTR 

A 

CNT3 
H810 
INTST 

$11 
INTREQ 

A 
STAT2 

no 

SEL 



($810) 
STATUS BITS FOR REQUESTED INTERRUPTS 

REQUESTED INTERRUPTS 



01211 
01212 
01213 
0121% 
01215 
01216 

01217 
01218 
01219 
01220 

01221 
01222 

01223 

0122% 

01225 
01226 
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~) o 



S~~^\ 



) ( ) O 



■^ 



N 



o 



L 



rrroo? 



1227 


P047C 


Cftfll 


1228 


PQ47D 


5800 




P047E 


FC51 


1229 


P047F 


0AA8 


1250 


PQ48G 


C8A7 


1231 


P0481 


0101 


1232 


P048? 


1BF9 


1233 


P0483 


C800 




PQ484 


OOAE 


123** 


P0485 


AOOO 




P0486 


0864 


1235 


PQ487 


0103 


1236 


P048S 


0A18 


1237 


P0489 


0C22 


1238 


P048A 


5CC2 


1239 


PQ48 1 


18DF 



SEC11S 



SEC11C 



END11 



page 


31 


LHfl* 


PAT3 


RTJ 


OUT 


RAO* 


CNT3 


LDA* 


CNT3 


SAZ 


SECllC-*-l 


JMP* 


SEC11B 


LDA 


STAT? 


AND 


=N*e6<f 


SAZ 


£NHll-*-l 


FNA 


JIB 


FN a 


$?.?. 


RTJ* 


(XSTOP) 


JMP* 


END10 



DATE! 10/20/75 



CHECK FO* MANUAL AND ALARM INTERRUPTS 

ECC-INTERRUPT GENERATEO BY RINGING SELL 
GO TO END SECTION ROUTINE* 



01227 
01228 

01229 
01230 
01231 
01232 
01233 

01234 

01235 

01236 
01237 
01238 
01239 



1242 
1243 
1244 

1245 P048C 0000 

1246 P048D CCOO 
PQ48E FEAE 

1247 P048F 6800 
P049D FC23 

1248 P0491 CCOO 
P0492 FEFA 

1249 P0493 6800 
P0494 FC20 

1250 P0495 0A18 

1251 P0496 0C15 

1252 P0497 5C05 
1251 P0493 1CF? 



•DATA COMPARE ERROR 



CFRR 



NUM 
LD* 



STA 



LDA 



STA 




CIN04) 

ACT 

(IN03> 

EXP 



ACTUAL DATA 



EXPECTED DATA 



ENA 


$18 




ENQ 


"515 


ECC-DATA COMPARE ERROR 


RTJ* 


(XSTOP) 


ERRO* STOP 


JMP* 


(CERP1 





01242 
01243 
01244 
01245 
01246 

01247 

0124S 

01249 

01250 
01251 
01252 
01253 



1255 
1256 
1257 
1258 
1259 

1260 P0499 0000 

1261 P049A 6811 

1262 P049I3 0354 

1263 P049C 680E 



*TYPF OUT INSTRUCTIONS TO OPE^ATO? 

*A=FIRST WORT AOORESS OF MESSAGE 

*Q=HORD COUNT 

* 

INTO 



NUM 


a 


STA* 


FW 


TCT 


A 


STA* 


wc 



01255" 

01256 

01257 

01258 

01259 

01260 

01261 

01262 

01263 
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PAGE 


32 


1264 


P0490 


CCOE 


INTOA 


LDA* 


<FW) 


1265 


P049E 
P049F 


5800 
FC30 




RTJ 


OUT 


1266 


P04A0 


9803 




RAO* 


FW 


1267 


P04A1 


O809 




RAO* 


WC 


1268 


P04A2 


C808 




LDA* 


WC 


1269 


P04A3 


0101 




SAZ 


INTOR-*- 


1270 


PQ4A4 


18F8 




JMP* 


INTOA 


1271 


P04A5 
P04A6 


COOO 
0707 


INT03 


LOA 


=N3707 


1272 


P04A7 
P04A8 


5800 
FC27 




RTJ 


OUT 


1273 


PQ4A9 


1CEF 




JMP* 


(INTO) 


1274 


P04AA 


0000 


WC 


NUM 





1275 


PQ4A0 


0000 


FW 


MUM 






DATE: 10/20/75 



UPDATE STORAGE AOORESS 
UPDATE WORD COUNT 



BELL 



01264 
01265 

01266 
01267 
01268 
01269 
01270 
01271 

01272 

01273 
01274 
01275 



1277 






* 






1278 






•INTERRUPT PROS 


ESSING ROUTINE 


1279 






* 






1280 


P04AC 


0000 


INT 


NUM 





1281 


P04AO 
P04AE 


4800 
0083 




STQ 


EX 


1282 


P04AF 


E400 




LOQ- 


CO) 


1283 


P04B0 


00C3 P 


XIPS 


ADC 


IPS 


1284 


P0481 


4000 




STQ- 





1285 


P04B2 


0000 


XIPSAV 


NUM 





1286 


P04B5 
PQ434 


5800 

FCOE 




PTJ 


IPS 


1287 


P0495 


E8FC 




LDQ* 


XIPSAV 


1288 


f>04B6 


4CF9 




STQ* 


(XIPSI 


1289 


P04B7 


6878 




STA* 


STAT2 


1290 


P04B8 


C87A 


INT1 


LDA* 


STAT2 


1291 


P0439 


A06D 




ANO- 


CONST+2 


1292 


P04BA 


0113 




SAN 


INT2-*-l 


1293 


P04BB 


0C20 




FNQ 


$20 


1294 


P04BC 


4878 




STQ* 


ERC 


1295 


P04BD 


1869 




JM°* 


INT7 


1296 


P049E 


C871 


INT2 


LOA* 


S10 


1297 


P04BF 


0101 




SAZ 


INT2A-*-! 


1298 


P04CO 


1861 




JMP* 


INT6F 


1299 


P04C1 


C871 


INT2A 


LOA* 


STAT2 


1300 


P04C2 


A0 70 




ANO- 


C0NST4-5 


1301 


P04C3 


0111 




SAN 


1 


1302 


P04C4 


1818 




JMP* 


INT5 


1303 


P04C5 


0A41 




ENA 


$41 


1304 


P04C6 


A86C 




AND* 


STAT2 


1305 


P04C7 


BO 63 




EOR- 


CONST 


1306 


P04C8 


0117 




SAN 


INT3-*-l 


1307 


P04C9 


C867 




LDA* 


S63 


1308 


P04CA 


0102 




SAZ 


2 



STATUS 



SAXE ENTRY ADDRESS 



RESTORE STATUS ENTRY 



PTC2 

PTC2 

PTC2 
PTC2 
PTC2 



PTC2 
PTC2 



CHECK INTERRUPT STATUS BIT 

OK 

ECC-NO INTERRUPT STATUS 



CHECK FOR ALARM INTERRUPT 



01277 

01278 
01279 
01280 
01261 

01282 
01283 

01264 
01285 
01286 

01287 
01288 
01289 
01290 
01291 
01292 
01293 
01294 
01295 
01296 
01297 
01298 
01299 
01300 
01301 
01302 
01303 
01304 
01305 
01306 
01307 
01308 
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DATE! 10/20/75 



1309 


P0*CB 


686D 


1310 


P0*CC 


185A 


1311 


P0*CD 


0C2* 


1312 


P0*CE 


*A66 


1313 


P0*CF 


1857 


131* 


P0*O0 


CB62 


1315 


P0*01 


A06B 


1316 


P0*O2 


0113 


1317 


P0*O3 


0CQ1 


1310 


P0*O* 


*860 


1319 


P0*D5 


1851 


1320 


P0*06 


C85C 


1321 


P0*D7 


A071 


1322 


P0*08 


0103 


1323 


P0*09 


0C27 


132* 


P0*DA 


*R5A 


1325 


P0*OB 


18*B 


1326 


P0*OC 


C856 


1327 


po*oo 


A85A 


1328 


P0*OE 


0113 


1329 


P0*OF 


0C21 


1330 


P0*E0 


*8 5* 


1331 


P0*E1 


18*5 


1332 


P0*E2 


A076 


1333 


P0*E3 


0111 


133* 


P0*E* 


1812 


1335 


P0*E5 


C800 




P0*E6 


FE55 


1336 


P0*E7 


010C 


1337 


P0*E8 


68*6 


1336 


P0*E9 


OAOO 


1339 


P0*EA 


6*00 




P0*E8 


033C P 


13*0 


P0*EC 


C600 




PO*En 


F06A 


13*1 


PO*EE 


0111 


13*2 


PO*EF 


1837 


13*3 


P0*F0 


08** 


13** 


P0*F1 


6800 




P0*F2 


F065 


13*5 


P0*F3 


1818 


13*6 


P0*F* 


5*0D 


13*7 


P0*F5 


1831 


13*8 


P0*F6 


C83C 


13*^ 


P0*F7 


A0 6E 


1350 


P0*F8 


0111 


1351 


P0*F9 


1828 


1352 


P0*FA 


CBOO 




PO*F8 


F05B 


1353 


P0*FC 


0111 


135* 


PO*FD 


1017 


1355 


P0*FE 


E800 




P0*FF 


FBF3 



INT3 



INT* 



INT5 



INT6 



INT6B 



INT6A 



STA» 

JM°» 

ENQ 

STQ* 

JMP* 

LOA* 

ANO- 

SAN 

ENQ 

STQ* 

JMP* 

LOA* 

AND- 

SAZ 

ENQ 

STQ* 

JHP* 

LOA* 

ANO* 

SAN 

ENQ 

STQ* 

JMP* 

AND- 

SAN 

JMP* 

LOA 

SAZ 
STA* 

ENA 
STA* 

LOA 

SAN 
JMP* 
CLR 
STA 

JMP* 

RTJ- 
JMP* 
LOA* 

AND- 

SAN 

JMP* 

LOA 

SAN 

JMP* 

LOQ 



EOT ■ 

TNT7 

$2* 

ERC 

INT7 

STAT2 

CONST 

INT*-*-i 

SI 

ERC 

INT7 

STAT2 

C0NSTf6 

INT5-»-l 

$27 

ERC 

INT7 

STAT2 

INTST 

INT6-*-l 

$21 

ERC 

INT7 

CONSTfll 

1 

INT6A 

HRF 

INT6B-*-l 
MOF 


NRF 

S* 

1 

INT7 
A 
S* 

INT6A1 

(HATNLI 

INT7 

STAT2 

C0NST+3 

1 

INT6F 

OF 

1 

INT60 

OIRO 



SET ENO OF TAPE FLAG 

ECC-ALARM INT, BUT NO ALARM CONDITIONS 

CHECK REAOY STATUS 
ECC-TELETYPE NOT REAOY 

CHECK FOR LOST OATA 
ECC-LOST OATA 



CHECK FOR REQUESTED INTERRUPT 
OATA OR MANUAL 
ECC-NON-REQUESTEO INTERRUPT 



HAS IT. A MANUAL INTERRUPT 



WAS MANUAL INTERRUPT REQUESTED 

NO t GO TO MONirOR 

SET MANUAL INT, OCCUR FLAG 

CLEAR M.I. REQ FLAG 



PTC2 

PTC2 



PTC2 
PTC2 



WAS IT OATA INTERRUPT 
OUTPUT OR INPUT REQUESTED 

OUTPUT OATA 



01309 
01310 
01311 
01312 
01313 
0131* 
01315 
01316 
01317 
01318 
01319 
01320 
01321 
01322 
01323 
0132* 
01325 
01326 
01327 
01328 
01329 
01330 
01331 
01332 
01333 
0133% 
01335 

01336 
01337 
01336 
01339 

013*0 

013*1 
013*2 
013*3 
013** 

013*5 
013*6 

013*7 
013*8 
013*9 
01350 
01351 
01352 

01353 
0135* 
01355 
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1356 P0500 


CCOO 




LOA 


(INOll 




P0501 


F057 










1357 P0502 


030E 




OUT 


INT6C-*-! 




1358 P0503 


D800 




RAO 


INOl 


UPOATE STORAGE AOORESS 


P050% 


FD5% 










1359 P0505 


D800 




RAO 


CNT 


UPDATE COUNTER 


P0506 


FCA6 










1360 P0507 


C800 




LOA 


CNT 




P0508 


FCA% 










1361 P0509 


0101 




SAZ 


1 




1362 P050A 


1821 




JMP* 


INT79 




1363 P050B 


0C02 


INT6A1 


ENQ 


2 


CLEAR INTERRUPTS 


136% P050C 


%82A 




STQ» 


INTREQ 




1365 P050O 


C076 




LOA- 


CONSTi-11 




1366 P05QE 


6829 




STA* 


INTST 




1367 P050F 


532A 




RTJ* 


CLRINT 




1368 P0510 


1816 




JMP* 


INT7 




1369 P0511 


0C09 


INT6C 


enq 


$9 




1370 P0512 


%822 




STQ* 


ERC 




1371 P0513 


1813 




JMP» 


INT7 




1372 PQ51% 


E80Q 


INT60 


LDQ 


OIRO 


INPUT OATA 


P0515 


FBDO 










1373 P0516 


0207 




INP 


INT6E-*-! 


ERROR IF REJECTED 


137% P0517 


6C0O 




STA 


tINDll 




P0513 


F0%0 










1375 P0$19 


O800 




RAO 


INOl 


UPOATE STORAGE AOORESS 


P051A 


F03E 










1376 P051B 


0800 




RAO 


CNT1 


UPOATE COUNTER 


P051C 


FC91 










1377 P051O 


180D 




JMP» 


INT7A 




1378 P051E 


0C12 


INT6E 


ENQ 


S12 




1379 P051F 


%815 




STQ» 


ERC 




1380 P0520 


1806 




. JMP» 


INT7 




1381 P0521 


C811 


INT6F 


LOA* 


STAT2 




1382 P0522 


A06F 




AND- 


CONST*% 


CHECK FOR EOP INTERRUPT 


1383 P0523 


0101 




SA2 


1 




138** P052% 


680F 




STA»* 


EOF 


SET FLAG 


1385 P0525 


581% 




RTJ» 


CLRINT 


CLR INTERRUPTS 


1386 P0526 


08%% 


INT7 


CLR 


A 




1387 P0527 


6800 




STA 


INTFLG 




P0528 


F087 










1388 P0529 


6806 




STA* 


S10 




1389 P052A 


580F 


INT7A 


RTJ* 


CLRINT 


CLR INTERRUPT STATUS 


1390 P0528 


E806 


INT78 


LOQ* 


EX 




1391 P052C 


1C00 




JUP UNTI 


EXIT INTERRUPT STATE 


P052O 


FF7E 










1392 P052E 


0000 


HOF 


NUM 







1393 P052F 


0000 


S10 


NUM 







139% P053Q 


0000 


S68 


NUM 





SECTION 6 OR 8 


1395 P0531 


0000 


EX 


NUM 







1396 P0532 


0000 


STAT2 


NUM 







1397 P0533 


0000 


EOF 


NUM 







1398 P053% 


0000 


ERC 


NUM 








01356 

01357 
01358 

01359 

01360 

01361 
01362 
01363 
0136% 
01365 
01366 
01367 
01368 
01369 
01370 
01371 
01372 

01373 
0137% 

01375 

01376 

01377 

01378 
01379 
01380 
01381 
01382 
01383 
0139% 
01385 
01386 
01387 

01388 

01389 

01390 

PTC2 01391 

01392 
01393 
0139% 
01395 
01396 
01397 
01398 
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DATE: 10/20/75 



1399 P0535 0000 IOF NUM 

1400 P0536 0000 INTREQ NUM 

1401 P0537 0000 INTST NUM 

1402 P0538 0000 EOT NUM 



01399 
01400 
01401 
01402 



1404 




* 








01404 


1405 




♦CLEAR 


INTERRUPTS 






01405 


1406 




» 








01406 


1407 P0539 


0000 


CLRINT 


NUM 







01407 


1408 P053A 


cooo 




LOA 


=N$E000 


PTC2 


01408 


P053B 


EO00 












1409 P053C 


6817 




STA* 


CLCK 




01409 


1410 P053D 


C8F6 


CLRI1 


LOA* 


INTREQ 




01410 


1411 P053E 


6400 




STflf 


EXP 


DISPLAY OIR FCN BITS USED ON ERR 


01411 


P053F 


0OB5 P 












1412 P0540 


EC IE 




LOQ* 


(XDIR1) 




01412 


1413 P0541 


03FE 




OUT 


-1 




01413 


1414 P0542 


0300 




NOP 






01414 


1415 Pp543 


02FE 




INP 


-1 




01415 


1416 P0544 


6400 




STA + 


ACT 


SAVE FOR POSSIBLE ERROR STOP A3 


01416 


P0545 


0084 P 












1417 T>0546 


A000 




AND 


-N$844 


OTD INTERRUPTS CLEAR 


01417 


P0547 


08 44 












1418 P0548 


0111 




SAN 


1 




01418 


1419 P0549 


1CEF 




JMP* 


(CLRINT) 




01419 


1420 PQ54A 


0809 




RAO* 


CLCK 




01420 


1421 P0543 


C8Q8 




LDA» 


CLCK 




01421 


1422 P054C 


0101 




SAZ 


CLRI2-*-l 




01422 


1423 P054O 


18EF 




JMP» 


CLRI1 


RE-TRY 


01423 


1424 P054E 


0A18 


CLRI2 


ENA 


$18 


**»01424 


1425 PQ54F 


0C16 




ENQ 


$16 




01425 


1426 P0550 


5400 




RTJf 


STOP 


REPORT FAILURE TO CLR INTERRUPTS 


01426 


P0551 


00A2 P 












1427 P0552 


18E7 




JMP* 


CLRINT+1 


TRY AGAIN TO CLEAR 


01427 


1428 P0553 


0000 


CLCK 


NUM 







01428 



1430 




* 






1431 




♦REQUEST 


INTERRUPTS 


1432 




* 






1433 P0554 


0000 


REQ 


NUM 





1434 P0555 


0A02 


RFQ2 


ENA 


2 


1435 P0556 


EC06 




LDQ» 


CXDIR1) 


1436 P0557 


5404 




RTJ- 


(REQINT) 


1437 P0558 


04AC P INTSUB 


ADC 


INT 


1438 P0559 


1CFA 




JMP» 


(REQ) 



REQUEST INTERRUPTS, 



01430 
01431 
01432 
01433 
01434 
01435 
01436 
01437 
01438 
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DATE! 10/20/75 



1440 






1441 






1442 






1443 






1444 






1445 


P055A 


0000 


1446 


P055B 


OC02 


1447 


P055C 


0R11 


1448 


P0550 


E400 


1449 


P055E 


00F4 


1450 


P055F 


03FE 


1451 


P0560 


0400 


1452 


P0561 


lCFfl 



•SELECT INTERRUPTS 



SEL 



P XDIPi 



1UPT 


TO 


BE 


SELECTED 


NUfl 









ENQ 






2 


TRQ 






M 


LDQ- 






(0) 


AOC 






DIR1 


OUT 






-1 


EIN 









JMP* 






(SEL) 



SET INTERRUPT MASK 



SELECT INTERRUPTS 
ENABLE INTERRUPTS 



01440 
01441 
01442 
01443 
01444 
01445 
01446 
01447 
01448 
01449 
01450 
01451 
01452 



1454 
1455 
1456 






•INPUT 

* 


ROUTINE 


FOR PAPER TAPE 




01454 
01455 
01456 


1457 


P0562 


0000 


INPA 


NUH 







01457 


1458 


P0563 


5C18 




RTJ* 


CXSTRMTNI 


START TAPE HOTION IF 1713 


01458 


1459 


P0564 
P0565 


E800 
F980 




LOQ 


OIRO 




01459 


1460 


P0566 


02FE 




INP 


-1 




01460 


1461 


P0567 


0300 


IN1A 


NOP 







01461 


1462 


P0568 


0300 


IN1B 


NOO 







01462 


1463 


P0569 


5012 


INI 


RTJ* 


(XSTRMTN) 


START TAPE MOTION IF 1713 


01463 


1464 


P056A 


0844 




CL* 


A 




♦•♦01464 


1465 


P0563 


02FE 




INP 


-1 




01465 


1466 


P056C 


6833 




STA» 


SAVE 




01466 


1467 


P0560 


9833 




sua* 


FIRST 




01467 


1468 


P056E 


0111 




SAN 


1 




••♦01468 


1469 


P056F 


18F9 




JMP» 


INI 


LOOP DURING RUBOUTS 


♦♦♦01469 


1470 


P0570 


5C0B 




RTJ» 


CXSTRMTN) 


START TAPE MOTION IF 1713 


01470 


1471 


P0571 


C82F 




LOA* 


SAVE 


GET BACK FIRST OATA FRAME 


♦♦♦01471 


1472 


P3572 


0FC8 




ALS 


8 




01472 


1473 


P0573 


02FE 




INP 


-1 


INPUT 2ND HALF OF FIRST WORD 


♦♦•01473 


1474 


P0574 


180F 




JMP* 


IN3 




01474 


1475 


P0575 


5C06 


IN2 


RTJ* 


(XSTRMTNt 


START TAPE MOTION IF 1713 


01475 


1476 


P0576 


0844 




CLR 


A 




♦♦♦01476 


1477 


P0577 


02FE 




INP 


-1 


INPUT UPPER HALF OF DATA WORDS 


•♦♦01477 


1478 


P0578 


0FC8 




ALS 


8 




01478 


1479 


P0579 


6826 




STA* 


SAVE 




01479 


1480 


P057A 


5400 




RTJ- 


(0) 


START TAPE MOTION IF 1713 


01480 


1481 


P0573 


05F9 P 


XSTFMTN AOC 


STRMTN 




01481 


1482 


P057C 


C323 




LDA* 


SAVE 




01482 


1483 


P057O 


02FE 




INP 


-1 


INPUT LOWER HALF OF OATA WORDS 


•♦♦01483 


1484 


P057E 


6821 




STA» 


SAVE 




01484 


1485 


P057F 


B07C 




EOR- 


HFFFF 


SFFFF 


01485 


1486 


P0580 


0111 




SAN 


1 




01486 


1437 


P0581 


1807 




JMO# 


IN4 




01487 
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1488 


P0582 


csin 




LOA» 


1489 


P0583 
P0584 


6C0O 
F088 


IN3 


ST A 


1490 


P0585 
PQ586 


0800 
FD06 




RAO 


1491 


P0587 


18ED 




JMP» 


1492 


P0588 


EC05 


IN4 


LDQ* 


1493 


P0589 


CO 73 




LDA- 


1494 


P058A 


03QCf 




OUT 


1495 


P0583 


0A18 




EN* 


1496 


P058C 


0C30 




ENQ 


1497 


PQ580 
P058E 


5800 
FB13 




RTJ 


1498 


P058F 


586A 


IN6 


RTJ* 


1499 


P0590 
P0591 


C800 
FAA3 




LOA 


1500 


P0592 


0101 




SAZ 


1501 


P0593 


180E 




JMP» 


1502 


P0594 


0202 


IN6B 


INP 


1503 


P0595 


18F9 




JHP* 


1504 


P0596 


OQOO 




NOP 


1505 


P0597 


C8A0 


IN6A 


LOA* 


1506 


P0598 


0111 




SftN 


1507 


P0599 


18FA 




JMP» 


1508 


>059A 
P059O 


EOOO 
0091 


IN7 


LOQ 


1509 


P059C 


0AQ1 




ENA 


1510 


P059D 


03FE 




OUT 


1511 


P059E 


1CC3 




JMP* 


1512 


P059F 


OQOO 


SAVE 


NUM 


1513 


PO5A0 


OOFF 


FIRST 


NUM 


1511* 


P05A1 


02FE 


IN12 


INP 


1515 


P05A2 


0844 




CLR 


1516 


P05A3 


68F0 




STA* 


1517 


P05A4 


0203 


IN12A 


INP 


1518 


P05A5 


0844 




CL? 


1519 


P05A6 


68F8 




STA* 


1520 


PQ5A7 


1RFC 




JMP* 


1521 


P05A8 


D8F6 


IN12CI 


RAO* 


1522 


P05A9 


C8F5 




LDA* 


1523 


P05AA 


0131 




SA* 


1524 


P05AQ 


18F8 




JMP* 


1525 


P05AC 


0O01 




INQ 


1526 


P05A0 


0A01 


IN123 


ENA 


1527 


P05AE 


03FE 




OUT 


1528 


P05AF 


1C02 




JMP* 



SAVE 
(IND4) 

ind4 

IN? 

(XDIR1) 

CONSTf8 

IN6-*-l 

$18 

$30 

STOP 

STRMTN 
MODI 

1 

IN12 

IN6A-*-l 

IN6 



EOT 

1 

IN6B 

=NS91 

1 

-1 

(INPAI 



*FF 

-1 

A 

SAVE 

IN12C-*-l 

A 

SAVE 

IN12A 

SAVE 

SAVE 

1 

IN12A 

1 

1 

-1 

(INPAI 



SELECT WRITE NOOE 

CONTINUE IF EXTERNAL REJECT 

ERROR IF REPLY 

ECC-DELAY ADJUSTMENT ERROR 



START TAPE MOTION 



1712 ONLY 



TELETYPE IS A 1712 



CHECK FOR ENO OF TAPE INTERRUPT 



CLEAR CONTROLLER 



01488 
01489 

01490 

01491 
01492 
01493 
01494 
01495 
01496 
01497 

01498 
01499 

01500 
01501 
01502 
01503 
01504 
01505 
01506 
01507 
01508 

01509 
01510 
01511 
01512 
»»*01513 
01514 
01515 
01516 
01517 
01518 
01519 
01520 
01521 
01522 
01523 
01524 
01525 
01526 
01527 
01528 



1530 
1531 
1532 



•CARRIAGE R^TU^LINE FEEO 



01530 
01531 
01532 
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TTY005 



1533 


P05B0 


OOOQ 


153*1 


P05B1 


COOO 




P05B2 


8O0A 


1535 


P05B3 


5900 




P05B4 


FB1B 


1536 


P05B5 


1CFA 



CRLF 



PASF 


33 


NUM 
LOA 



=N$8O0A 


RTJ 


OUT 


JMP* 


(DRLF1 



OATEt 10/20/75 



CARRIAGE RETURN,LINE FEEO 



01533 

0153<i 

01535 
01536 



1538 






♦ 








1539 






♦PUNCH 


OUT PAPER 


TAPE LEADER 




1540 






» 








1541 


P05B6 


0000 


LOR 


NUM 







1542 


P05B7 


OAEB 




ENA 


-$14 




1543 


P05B8 


6809 




STA* 


CNT8 


WORO COUNT 


1544 


P0589 


OAFF 


LOR1 


ENA 


-0 




1545 


P05BA 
P05BB 


5800 
FB14 




RTJ 


OUT 




15<f6 


P05BC 


0805 




RAO* 


CNT8 


UPDATE COU 


1547 


P0580 


C304 




LOA* 


CNT8 




1548 


P05BE 


0101 




SAZ 


1 




1549 


P05BF 


18F9 




JMP* 


L0R1 




1550 


P05C0 


1CF5 




JMP* 


(LOR) 




1551 


P05C1 


0000 


CNT8 


NUM 







1552 






* 








1553 






•SELECT 


TELETYPE 


MOOES. (1713 


ONLY.) 


1554 






* 








1555 


P05C2 


0000 


SELKM 


NUM 







1556 


P0 5C3 


6817 




STA* 


MODE 




1557 


P05C4 
P05C5 


C800 

FA6E 




LOA 


MOO 


IS TELETYP 


1558 


P05C6 


0111 




SAN 


1 


YES 


1559 


P05C7 


1CFA 




JMP* 


(SELKM) 


NO, EXIT 


1560 


P05C8 


EC95 


SEL1 


LOQ* 


(XDIR1) 




1561 


P05C9 


02FE 




INP 


-1 




1562 


P05CA 


A06C 




ANO- 


CONSTfl 




1563 


P05CB 


0101 




SAZ 


1 




1564 


P05CC 


13FB 




JMP* 


SEL1 




1565 


P05CO 


C80O 




LDA* 


MODE 




1566 


P05CE 


03FE 




OUT 


-1 




1567 


P05CF 


02FE 


SEL2 


INP 


-1 




1568 


P05D0 


A0 6C 




ANO- 


CONST+1 


CHECK FOR 


1569 


P05D1 


0101 




SAZ 


1 




1570 


P05D2 


18FC 




JMP* 


SEL2 




1571 


P0503 


C307 




LOA* 


MOOE 




1572 


P05D4 


A0 75 




ANO- 


CONST+10 




1573 


P05D5 


0111 




SAN 


1 




1574 


P05D6 


1CEB 




JMP* 


(SELKM) 




1575 


P05D7 


08EA 




RAO* 


SELKM 




1576 


P05O8 


08E9 




RAO* 


SELKM 




1577 


P0509 


1CE8 




JMP* 


(SELKM) 




1578 


P05DA 


0000 


MODE 


NUM 








C^ASCII RUB-OUT COOES) 



01538 
01539 
01540 
01541 
01542 
01543 
01544 
01545 

01546 
01547 
01548 
01549 
01550 
01551 
01552 
01553 
01554 
01555 
01556 
01557 

01558 
01559 
01560 
01561 
01562 
01563 
01564 
01565 
01566 
01567 
01568 
01569 
01570 
01571 
01572 
01573 
01574 
01575 
01576 
01577 
01573 
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TTY005 



PASE 39 



DATE! 10/20/75 



1580 






* 




1581 






♦THIS ROUTINE 


1582 






♦(OPERATOR SH 


1583 






♦PRESS 


MANUAL 


1584 






* 




1535 


P0503 


0000 


HAITINT 


NUM 


1586 


P05DC 


COOO 




LDA- 


1587 


PQ500 


6815 




STA* 


1588 


P05DE 
P050F 


COOO 
05F3 P 




LDA 


1589 


P05E0 


600D 




STA- 


1590 


P05E1 


0844 




CLR 


1591 


P05E2 


6811 




STA* 


1592 


P05E3 


0901 


HI 


INA 


1593 


PQ5E4 


0131 




SAM 


1594 


P05F5 


18F0 




JMP* 


1595 


P05E6 


C80B 




LDA* 


1596 


P05E7 


086* 




TCA 


1597 


P05E8 


6809 




STA^ 


1598 


P05E9 


0111 




SAN 


1599 


P05EA 


01A0 




sov 


1600 


P05EB 


C808 




LOA* 


1601 


P05EC 


QUI 




SAN 


1602 


P05ED 


18F5 




JMP» 


1603 


P05EE 


cao4 




LDA» 


160* 


P05EF 


6000 




STA- 


1605 


PQ5F0 


1CEA 




JMP* 


1607 


P05F1 


FFFF 


H2 


NUM 


1608 


P05F2 


0000 


SAVINL 


NUM 


1610 


P05F3 


0000 


MANINT 


NUM 


1611 


P05F4 


0844 




CLR 


1612 


P05F5 


0901 




INA 


1613 


P05F6 


0131 




SAM 


1614 


P05F7 


18FQ 




JMP* 


1615 


P05F8 


1CFA 




JMP* 





MAINL 
SAVINL 
=XMANINT 

MAINL 

A 

MANINT 

1 

1 

Wl 

W2 

A 

W2 

1 



MANINT 

1 

Wl 

SAVINL 

MAINL 

(WAITINT) 



-0 




REQUEST SMM MANUAL INTERRUPTS 



FLASM 9VERFLOW LIGHT UNTIL MANUAL INTERRUP 
IS PRESSED 



CLEAR MANUAL INTERRUPT REQUEST 





A 

1 

1 

♦-2 

CMANINT) 



MANUAL INTERRUPT HAS SENSED BY SMM 



01580 
01581 
01582 
01583 
01584 
01585 
01586 
01587 
01588 

01589 
01590 
01591 
01592 
01593 
01594 
01595 
01596 
01597 
01598 
01599 
01600 
01601 
01602 
01603 
01604 
01605 



01607 
01608 



01610 
01611 
01612 
01613 
01614 
01615 



1617 
1618 
1619 
1620 
1621 
1622 P05F9 0000 



•THIS ROUTINE 3HECKS FOR MANUAL SELECTION OF MOOES (1713 ONLY) 
♦AND IF PRESENT EXITS THE ROUTINE. IF NOT PRESENT TAPE MOTION 
♦IS STARTED. 



STRMTN 



NUM 



01617 
01618 
01619 
01620 
01621 
01622 



60220500 



PAGE 39 



TTY005 



1623 


P05FA 


£800 




P05FB 


FAF8 


1624 


P05FC 


C800 




P05FO 


FA36 


1625 


P05FE 


0115 


1626 


P05FF 


C800 




P0600 


FOFA 


1627 


P0601 


0117 


1628 


P0602 


OOFE 


1629 


P0603 


1CF5 


1630 


P06Q4 


C800 




P0605 


FD38 


1631 


P0606 


0102 


1632 


P0607 


OOFE 


1633 


P0608 


1CF0 


1634 


P0609 


C070 


1635 


P060A 


03FE 


1636 


P0603 


OOFE 


1637 


P060C 


0844 


1638 


P060O 


1CEB 



SM 



SMI 



PAGE 


40 


L03 


DIR1 


LOA 


MOO 


SAN 


SM-»-l 


LOA 


S8 


SAN 


SMl-*-l 


INQ 


-1 


JHP» 


CSTRMTN) 


LOA 


S6 


SAZ 


2 


INQ 


-1 


JMP* 


CSTRMTN) 


LOA- 


CONST+5 


OUT 


-1 


INQ 


-1 


CLR 


A 


JMP* 


(STRMTN) 



OATEt 10/20/75 

IS TELETYPE A 1713 

YES 

IS THIS SECTION 8(1713 MANUAL SELECTION OF 

YES-START TAPE MOTION 

EXIT 

NOT SECTION 6 
START TA?E MOTION 



01623 

0162* 

01625 
01626 

01627 
01628 
01629 
01630 

01631 
01632 
01633 
01634 
01635 
01636 
01637 
01638 



1640 P060E 


535*1 


P060F 


M5lt 


P0610 


5553 


P0611 


2043 


P0612 


4845 


P0613 


434B 


P0614 


2020 


P0615 


2020 


1641 P0616 


80QA 


1642 P0617 


5459 


P0618 


5045 


P0619 


2049 


P061A 


4E20 


P061B 


5241 


P061C 


4E4<i 


P061D 


4F<tD 


P061E 


2Q4<» 


P061F 


4154 


P0620 


4120 


P0621 


2832 


P0522 


3030 


P0623 


20^3 


P0624 


4«<*1 


P0625 


5241 


PQ626 


4354 


P0627 


4552 


P0623 


5320 


P0629 


4041 


P062A 


582E 


P0628 


292C 


60220500 



MESS 



ALF 



8, STATUS CHECK 



01640 



BM1 



NUM 
ALF 



$800A 

21, TYPE IN RANDOM DATA (200 CHARACTERS MAX.I , 



01641 
01642 
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OATEI 10/20/75 



1643 PQ62C 


5052 


P062O 


4553 


PQ62E 


5320 


PQ62F 


4041 


P063Q 


4E55 


P0631 


41 4G 


P0632 


2049 


P0633 


4E54 


P0634 


4552 


P0635 


5255 


P0636 


5054 


1644 P0637 


anoA 


1645 P0635 


5345 


P0639 


4C45 


P063A 


4354 


P063Q 


2023 


P063C 


4B54 


P063O 


2920 


P063E 


404F 


P063F 


4445 


P0640 


2E20 


po&m 


5052 


P0642 


4553 


P0643 


5320 


PQ644 


4041 


P0645 


4E55 


P0646 


414G 


P0647 


2049 


P064d 


4E54 


PQ649 


4552 


P064A 


5255 


P064B 


5054 


P064C 


2E20 


1646 P064D 


8D0A 


1647 P064E 


5345 


P064F 


4C45 


P0650 


4354 


P0651 


2054 


P0652 


5452 


P0653 


2040 


P0 654 


4F44 


P0655 


452E 


P0656 


2050 


P0657 


5245 


P0653 


5353 


P0659 


2040 


P065A 


41 4E 


P0653 


5541 


P065C 


4C20 


P065D 


494E 


P065E 


5445 


P065F 


5252 


P0660 


5550 


P0661 


542E 


60220500 



ALF 



11, PRESS MANUAL INTERRUPT 



01643 



BH? 



NUM *8O0A 

ALF 21, SELECT CKT) MODE, PRESS MANUAL INTERRUPT, 



01644 
01645 



3M3 



NUM SBDOA 

ALF 22, SELECT TTR MODE, PRESS MANUAL INTERRUPT. 



01646 
01647 



PAGE 41 





TT1 


roos 




P0662 


2020 




P0663 


2020 


16*8 


P066* 


8O0A 


16*9 


P0665 


*C*F 




P0665 


*i** 




P0667 


205* 




P0668 


*150 




*>0669 


*520 




P066A 


5055 




P066B 


*E*3 




P066C 


*8*5 




P066D 


**20 




P066E 


*9*E 




P066F 


20 53 




P0670 


*5*3 




P0671 


5**9 




P0672 


*F*E 




P0673 


2037 




P067* 


2C20 


1650 


P0675 


8O0A 


1651 


P0676 


53*5 




P0677 


*C*5 




P0678 


*35* 




P0679 


2028 




P067A 


5*5* 




P0673 


5329 




P067C 


20*0 




P0670 


*F** 




P067E 


*52C 


1652 


P067F 


8O0A 


1653 


P0680 


5255 




P0681 


*E20 




P06B2 


50*1 




P0683 


50*5 




PQ68* 


5220 




P0685 


5**1 




P0686 


50*5 




P0687 


2052 




PQ688 


*5*1 




P0689 


***5 




P068A 


522E 


165* 


P068B 


8O0A 


1655 


P068C 


2035 




P068D 


2C20 


1656 


P068E 


8D0A 


1657 


PQ68F 


53*5 




P0690 


*C*5 




P0691 


*35* 




PQ692 


2028 




P0693 


5*29 




P069* 


20*F 




P0695 


5220 




P069* 


28*8 




P0697 


5*29 




60220500 1 



PAGE *2 



DATE! 10/20/75 



BM* 



NUN 
ALP 



$8D0A 

16,LOA0 TAPE PUNCHED IN SECTION 7, 



016*8 
016*9 



NUM 
ALF 



$8O0A 

9, SELECT (TTS> MODE* 



01650 
01651 



BM*A 



NUM 
ALF 



S8O0A 

11, RUN PAPER TAPE READER, 



01652 
01653 



BM5 



NUM 
ALF 

NUM 
ALF 



38P0A 
2, 5, 

S800A 

12, SELECT (T) OR (KD MODE* 



0165* 
01655 

01656 
01657 



PAGE *2 



n 






r \ 



r 



O 



O O O ( 



TTY0Q5 



PAGE «f3 



DATE! 10/20A75 



P0698 


20 ^D 


P0699 


t*FM 


P069A 


452C 


1658 P0693 


8O0A 


1659 P069C 


<*F50 


P069O 


«*552 


P069E 


<»15<» 


P069F 


«*9**E 


P06AO 


^720 


P06A1 


t*3**F 


P06A2 


kFJ*k 


P06A3 


**95<* 


P06A<f 


t*9**F 


P06A5 


t*E53 


P06A5 


20 57 


P06A7 


W5h 


P06A* 


<*820 


P06A9 


53<f5 


P06AA 


i*35t* 


P06AB 


<|9**F 


P06AC 


«i£53 


P06AO 


2035 


P06AE 


2C36 


P06AF 


2C37 


P0630 


20*>F 


P06B1 


5220 


P06B2 


3820 


1660 P06Q3 


53^5 


P06B<t 


kCkS 


P0685 


i*3Sk 


P06B6 


i*5kt* 


P06B7 


2O20 


1661 P06B8 


8D0A 


1662 P06B9 


2020 


P06BA 


2020 


P068O 


2020 


P06BC 


2020 


P06BO 


312E 


P06RE 


t*U**F 


P06BF 


t*Ek9 


P06CO 


5^F 


P06C1 


5253 


P06C2 


2H53 


P06C3 


5kkF 


P06C<f 


5020 


P06C5 


<fA55 


P06C6 


^050 


P06C7 


20t*9 


P06C8 


5320 


P06C9 


U<ffl 


P06CA 


t*l**E 


P06C3 


t*7**5 


P06CC 


^20 


P0 6C1 


5<fi*F 


60220500 F 



INTMSG 



NUM 
ALF 



$8O0A •♦♦01658 

X, OPERATING CONDITIONS WITH SECTIONS 5,6,7 OR 3 X ••♦01659 



ALF 



NUM 

ALF 



X, SELECTED- X 



♦♦•01660 



$800A 



♦♦♦01661 

1. MONITORS STOP JUMP IS CHANGED TO OMIT X ♦♦•01662 



PAGE <*3 



TTY005 


P06CE 


204F 


P06CF 


4049 


P0600 


5420 


1663 P06D1 


5459 


P06O2 


5045 


P06D3 


4F55 


P06D4 


5453 


P06D5 


2C41 


P06D6 


4E44 


P06D7 


2023 


1664 P06D* 


8O0A 


1665 P0609 


2020 


P06DA 


2020 


P06D3 


2020 


P060C 


2020 


P0600 


2020 


P06OE 


53*54 


P06DF 


4F50 


P06E0 


204F 


P06E1 


4E20 


P06E2 


4552 


P06E3 


524F 


P06E4 


5253 


P06E5 


2044 


)>06E6 


5552 


P06E7 


494E 


P06E3 


4720 


P06E9 


5448 


P06EA 


4553 


P06E8 


4520 


P06EC 


5345 


P06EO 


4354 


P06EE 


494F 


P06EF 


4E53 


P06F0 


2020 


1666 P06F1 


8D0A 


1667 P06F2 


2020 


P06F3 


2020 


PQ6F4 


2020 


P06F5 


2020 


P06F6 


322E 


P06F7 


5448 


P06F8 


4520 


P06F9 


4F50 


P06FA 


4552 


P06F3 


4154 


P06FC 


4F52 


P06FO 


2049 


P06FE 


5320 


P06FF 


544F 


P0700 


2053 


P0701 


454C 


P0702 


4543 


P0703 


5420 


60220500 F 



PA3E 44 



OATEl 10/20/75 



ALF 



X,TYPEOUTS,AN0 X 



♦♦•01663 



NUM 
ALF 



S8D0A 
X, 



STOP ON ERRORS DURING THESE SECTIONS X 



•♦♦01664 
••♦01665 



NUM 
ALF 



*800A 
X, 



♦♦♦01666 

2.THE OPERATOR IS TO SELECT K MODE ANO X •♦♦01667 



PAGE 44 



n o 



o 



o c 



r 



/" > 



TTY005 



PASF US 



OATF! 10/20/75 





P070<* 


<t320 




P0705 


1*0<*F 




P07Q6 


kM5 




P0707 


2QM 




P0708 


<f£<*«f 




P0709 


2020 


1668 


P07QA 


5052 




P07Q3 


<*553 




PO^OC 


5320 




PD70D 


**DM 




P070E 


i»E55 




P070F 


m*fC 




P0713 


20*»9 




P0711 


<^5<* 




P0712 


**552 




PQ713 


5255 




P071U 


5Q5<* 




P0715 


2020 


1669 


P0716 


enoA 


1670 


P0717 


2020 




P0718 


2020 




P0719 


2020 




P071A 


2020 




P071*? 


2020 




P071C 


57^8 




P071U 


***>k£ 




P071E 


20 5<* 




P071F 


«f8«f5 




P0723 


2020 


1671 


P0721 


<*F56 




P0722 


<»552 




P0725 


kMC 




P072<* 


*fF57 




P0725 


20«fC 




P0725 


^9if7 




P0727 


WSk 




P0728 


20«»6 




P0729 


Wkl 




P072A 


53^8 




P072B 


**553 




P072C 


2020 


1672 


P072H 


flOOA 


1673 


P072F 


0009 


167^ 


P0807 


OOAA 



ALF 



X, PRESS MANUAL INTERRUPT X 



•♦♦01668 



NUM 

ALF 



S8D0A 
X, 



HHEN THE X 



♦♦•01669 
•••01670 



ALP 



X, OVERFLOW LIGHT FLASHES X 



••♦01671 



INTMGF 



NUM 


$*ooa 


BZS 


PLOCK<217) 


BZS 


PLOCKK$AA) 



(=217-ENOTYP+INIT05-i> 



•♦♦01672 
01673 
0167* 



1676 


P0331 


COOO 




P08B2 


0036 


1677 


P0883 


6^00 




PQ8BH 


0005 


1678 


PQ8S5 


0909 



INIT05 



LOA 



STAM- 



INA 



=XCH9SY 

RETURN 

TTY005-CHRSY 



FORH IA IN AREG 



01676 
01677 
01678 



60220500 



PAGE *f5 





TTYQ05 




PAGE 


46 DATE? 10/20/75 


1679 


P08B6 


540A 




RTJ- 


(HEXASC) 


1680 


P03B7 


682C 




STA» 


^REQCNT-2 


1631 


P08B3 


482A ' 




sra» 


FREQCNT-3 


1682 


P0839 


E091 




LOQ- 


TSACTV 


1683 


P083A 


C291 




LOA- 


TSFREQ-i,Q 


1684 


P08B3 


540A 




RTJ- 


(HEXASC) 


1685 


P08BC 


682C 




STA* 


FREQCNT+3 


1686 


P08BO 
P08B6 


COOO 
08C2 P 




LOA 


=XTYPEIA 


1687 


P08BF 


0C28 




ENQ 


ENOTYP-TYPEIA+1 


1638 


P08C0 


5408 




RTJ- 


(TYPtOUT) TYPE TITLE 


1689 


*03C1 


5401 




RTJ- 


(CONTROL) CONTROL TO SUM 


1690 


P08C2 


800A 


TYPEIA 


NUM 


$8O0A 


1691 


P08C3 
P08C4 
P03C5 
P08C6 
P08C7 
P03C3 
P08C9 
P08CA 
P08C3 
P08CC 
P08CQ 
P03CE 
P03CF 

poaoo 

P08O1 

poan2 

P03D3 


5454 
5930 
3035 
2020 
3137 
3131 
2F31 
322F 
3133 
2054 
454C 
4554 
5950 
4520 
5445 
5354 
2E2Q 




ALF 


X,TTY005 1711/12/13 TELETYPE TEST.X 


1692 


P03D4 


8O0A 




NUM 


33D0A 


1693 


P0305 

P0806 
P0807 
P0308 
P03D9 

P030A 
P030'3 

P03OG 
P03DD 


4350 
3246 
2C?0 
5645 
522E 
2033 
2631 
2D 31 
2020 




ALF 


X,CP2F, VER. 3«i-i X 


1694 


P080F 


800A 




NUM 


^800A 


1695 


P08DF 
P03E0 
P08E1 
P0RE2 
P08E3 
P08E4 


2049 
4120 
3H20 
2020 
2020 
2C20 




ALF 


6, IA = , 


1696 


P08E5 
P03E6 
P08E7 
P03E8 


2046 
4320 
3020 

2020 


FPEQCNT 


ALF 


4, FC = 


1697 


°03E9 


8O0A 


ENDTYP 


NUM 


<?3nOA 


1698 








END 
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PTC2 



01679 
01680 
01681 
01682 
01683 
01684 
01685 
01686 

01687 
01688 
01689 
01690 
01691 



♦♦•01692 
♦♦♦01693 



01694 
01695 



01696 



01697 
01698 

PAGE 46 



o 



') O O O.'O Q O O O O ( ^ O O O O O C O O O ( 



TTY005 PAGE k7 OATEt 10/20/75 



PGM= 08£A ( 2?8?) COM = 0000 ( 0> DAT = 0000 ( 01 



60220500 F PAGE 47 



TTY005 



PAGE 48 
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HEQUIVALENCES 



M OEF.LINE NAME 


VALUE 


REFERENCED I 


HT LINE NUMBER 


0000 


I 


OOFF 


(000255* 


, 0184 








0119 


CONTRO 


0001 


(000001) 


, 0120, 


0210, 


0235, 


0372, 0765 


0120 


STOPX 


0002 


(000002) 


» 0121, 


0215, 


0286, 


0356 


0121 


EXIT 


0003 


(000003) 


i 0122, 


0294 






0122 


REQINT 


0004 


(000004) 


• 0123, 


0124, 


0182, 


1436 


0123 


FCLRIN 


0005 


(000005) 


» 0183 








0121* 


JUMP 


0006 


(000006) 


t 0125, 


0256, 


0291, 


0318, 0480 










» 0534, 


0576, 


0619, 


0666, 1132 


0125 


GENRAN 


0007 


(000007) 


f 0126, 


0179, 


0819 




0126 


TYPEOU 


0006 


(000008) 


i 0127, 


0128, 


0181, 


1688 


0127 


TTY3ZY 


0009 


(000009) 










0126 


HEXASC 


000A 


(000010) 


» 0129, 


0180, 


1679, 


1684 


0129 


OVRLAY 


000B 


(000011) 


i 0130 








0130 


RELPOS 


oooc 


(000012) 


, 0131 








0131 


MAINL 


oooo 


(000013) 


• 0132, 


1346, 


1586, 


1589, 1604 


0132 


SETMAS 


0042 


(000066) 


, 0133 








0131 


STJP 


0043 


(000067) 


i 0134, 


0135, 


0178, 


0350 


0134 


LASTVA 


0044 


(000068) 










0135 


LASTAD 


0045 


(000069) 


i Q136 








0136 


LDLCOR 


0047 


(000071) 


, 0137 








0137 


LOL1CO 


0048 


(000072) 


• 0138 








0138 


INFORM 


0049 


(000073) 


• 0139, 


0229 






0139 


SMMCNT 


0056 


(000036) 


• 0140, 


0177 






0140 


BITOO 


0068 


(000107) 


t 0141, 


0176 






0141 


BITO 


006B 


(000107) 


t 0142, 


0264 






0142 


BIT! 


006C 


(000108) 


, 0143, 


0233 






0143 


BTT2 


O06D 


(000109) 


, 0144 








0144 


BIT3 


006E 


(000110) 


• 0145 








0145 


BIT4 


006F 


(000111) 


, 0146, 


0206 






0146 


BIT5 


0070 


(000112) 


, 0147 








0147 


BIT6 


0071 


(000113) 


« 0148 








0146 


BIT7 


0072 


(000114) 


* 0149 








0149 


BIT8 


0073 


(000115) 


, 0150, 


1176 






0150 


BIT9 


0074 


(000116) 


• 0151 








0151 


BIT10 


0075 


(000117) 


t 0152, 


0317 






0152 


BTT11 


0076 


(000118) 


, 0153, 


0204, 


0788, 


0987 


0153 


BIT12 


0077 


(000119) 


, 0154 








0154 


BIT 13 


0C78 


(000120) 


, 0155 








0155 


BIT14 


0079 


(000121) 


, 0156 








0156 


BIT15 


007A 


(000122) 


, 0157 








0157 


H0000 


007° 


(000123) 


, 0158, 


0281 







60220500 F 



PAGE 48 



o o o o c o c 



r 



* % 



O ( ") M r A r • ( 



i \^ KJ v_ 





TTY005 




PA3E 


«f9 




0158 


HFFFF 


007C 


(00012<f) 


* 


0159, 


11*85 


0159 


H000F 


0070 


(000125) 


» 


0160 




0160 


H00F0 


007E 


C000126) 


t 


0161 




0161 


H0F00 


007F 


(000127) 


, 


0162 




0162 


HF00O 


0080 


(000128) 


♦ 


0163 




0163 


HOOFF 


0081 


(000129) 


♦ 


016<* 




016^ 


HFFOO 


0082 


(000130) 


» 


0165, 


082? 


0165 


HFFFO 


0083 


(000131) 


t' 


0166 




0166 


HOFFF 


008<f 


(000132) 


♦ 


0167 




0167 


HFFOF 


0085 


(000133) 


♦ 


0168 




0168 


HFOFF 


0086 


(00013**) 


i 


0169 




0169 


H7FFF 


0087 


(000135) 


» 


0170 




0170 


H7F00 


0088 


(000116) 


* 


0171 




0171 


H0780 


0089 


(000137) 


» 


0172 




0172 


H007F 


008A 


(000138) 


* 


0173 




0173 


H2020 


008B 


(000139) 


t 


017<*, 


612 


0174 


TSACTV 


0091 


(00011*5) 


t 


0175, 


1682 


0175 


TSFREQ 


0092 


(0001t*6) 


* 


1633 




0176 


CONST 


0063 


(000107) 


, 


0230, 


0379 



DATE1 10/20/75 



0230, 0379, 0«*19, 0«*65, 0<*73, 0<*82 

0<*85, 0«*91, OWtt 0518, 0601, 0792 

0880, 0916, 0921, 0932, 0935, 0991 

102**, 10<*5, 10<*7, 1065, 1070, 1080 

1089, 11****, 1291, 1300, 1305, 1315 

1321, 1332, 13«*9, 1365, 1382, 1<*93 

1562, 1568, 1572, 163<* 



0177 


SMHPAR 


0056 


(000086) 




0178 


SJPAR 


00**3 


(000067) 




0179 


RANDOM 


0007 


(000007) 




0180 


CONVER 


OOOA 


(000010) 




0181 


MESSAG 


0008 


(000008) < 


, 0198 


0182 


REQND 


OOOif 


(00000<*> 




0183 


CLPNO 


0005 


(000005) 




018<* 


REQOI 


OOFO 


(000253) 


, 0185 


0185 


CLRDI 


OOFE 


(00025**) 
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MSYMBOLS 



M DEF.LINE NAME 


ADDRESS 


0107 


TTY005 


0000 


0109 


PARAOR 


0004 


QUO 


RETURN 


0005 


0111 


EQUIP 


0006 


0112 


OLINE 


0007 


0113 


ALINE 


0008 


0114 


EOPL 


0009 


0167 


ENTERS 


000A 


0212 


ENTRY 


002C 


0214 


XTTYOO 


002E 


0219 


SECTNS 


0032 


0220 


COUNTR 


0033 


0221 


MOO 


0034 


0224 


MOOl 


0035 


0229 


CH3SY 


0036 


0235 


CHBSY3 


003O 


0246 


XERC 


0049 


0247 


CHBSY2 


004A 


0246 


PRGRET 


004R 


0250 


SECX 


004C 


0252 


END 


004D 


0258 


SECT 


0053 


0259 


SECTO 


0054 


0268 


SECT1 


005D 


0272 


SECT2 


0061 


0273 


SECT3 


0062 


0283 


ENOTST 


006B 


0289 


PASS 


0071 


0290 


ET1 


0072 


0296 


ET2 


0079 


0300 


SECAD 


0070 


0306 


CON 


0069 


0311 


SEC 


008E 


0316 


PAR 


008F 


0321 


PARI 


0094 


0328 


OPF 


0096 


0330 


01 


0098 


0332 


02 


009A 


0335 


03 


0090 


0336 


04 


009E 


344 


STOP 


00A2 



REFERENCED AT LINE NUMBER 
, 0214, 1678 
, 0190, 0762, 0767, 1677 



t 0107, 


0248 










, 0109, 


0191, 


0216, 


0321 






* 0285, 


0293, 


0353 








* 0193, 


0265, 


1044 








, 0547, 


1216 










, 0790, 


0904, 


0989, 


1056, 


1557, 


1624 


, 0924, 


1072, 


1499 








, 0189, 


0766, 


1676, 


1678 






, 0231, 


0238 










, 0239, 


0241 










♦ 0243 












, 0209, 


0247, 


0371 








, 0188, 


0258, 


0259, 


0272, 


0279, 


0283 


, 0536, 


0884 










, 0267, 


0299 










, 0208, 


0257 










, 0266 












, 0269 












, 0271 












, 0263 












, 0284 












, 0287 












, 0292 












9 0280 













, 0200, 0276, 0310, 0452, 0718 

, 0274, 0347 

, 0275, 0296, 0320, 0322 

, 0319 

, 0309, 0333, 0420, 0483, 0492, 0602 

, 0769, 1177 

, 0335, 0339 

, 0332 

, 0334 

, 0243, 0254, 0338, 0349, 0357, 0396 

, 0429, 0458, 0469, 0477, 0489, 0498 
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0354 


STOAOR 


OOAD 


0358 


10 


00B1 


0359 


SECERR 


00B2 


0360 


RETADR 


ono3 


0361 


ACT 


0094 


0362 


EXP 


00B5 


0363 


OATA1 


00R6 


0364 


DATA2 


00B7 


0369 


RCM 


00B8 



0377 



0389 



WN8 



IPS 



ooeo 



00C3 



0393 


IPS1 


00C8 


0394 


IPS2 


00C9 


0398 


IPS3 


OOCD 


0406 


OUT 


oono 


0408 


XF1 


00O2 


0415 


OUT1A 


0009 


0418 


OUT1 


oooc 


0421 


OUT2 


OODF 


0426 


OUT3 


00E4 


0427 


0UT4 


00F5 


0431 


OUT5 


00E9 


0438 


0UT6 


OOFO 


0439 


CHAR 


00F1 


044Q 


PAT 


00F2 


0441 


OIRO 


00F3 


0442 


niRi 


00F4 


0449 


SECO 


00F5 


0452 


SECOA 


OOFB 


0453 


.SECOB 


OOFC 


0460 


SECOC 


0104 


0471 


SFCOn 


0110 


3472 


XSTAT1 


0111 


0479 


SECOF 


0118 


0484 


SECUG 


011E 


0491 


SECOH 


0126 


0500 


SECOJ 


0131 


0507 


SECOK 


013 8 


0513 


SECOL 


0140 


0515 


SECOM 


0142 


0517 


SEC ON 


0144 


0524 


SECOP 


014D 


0536 


ENOO 


0159 


0537 


IND5 


015B 


0544 


SEC1 


015C 


0552 


SEC1A 


0165 



0522, 0723, 1187, 1426, 1497 

0352 

0346 

0348 

0354 

0399, 1247, 1416 

1249, 1411 

0329, 0330 

0297, 0370,' 0382, 0738, 0801, 1000 

1194 

0192, 0307, 0381, 0383, 0418, 0512 



, 0378, 0393, 0397, 0400, 0453 
, 0493, 0517, 1283, 1286 



, 0516, 0655, 0871, 1016, 1122 
, 1265, 1272, 1535, 1545 



0232 
0484 
0390 
Q392 
0391 
0438 
1228 
0278 
0409 
0414, 0426, 0430, 0437 



0423 
0425 
0424 
0433 
0413 



0416, 0431, 0432 

0411, 0417, 0421, 0434, 0436 

0422, 0603, 0611, 1179, 1355, 1372 
1459 

0331, Q3B9, 0920. 1069, 1449, 1623 



0300, 


1008 




0459, 


0470, 


0478, 0481 


0506 






0455 






0466 






0398, 


0460, 


0464 


0463, 


474 




0490 






0486, 


0499, 


0502 


0495 






0505, 


05^5 




053? 






0523 






0527 






0519 






0585 






0510, 


0515, 


0528 


0300 






0580 
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0555 


SEC1B 


0168 


0565 


SEC1C 


0172 


0568 


SECIO 


0175 


0579 


SEC1F 


0180 


0581 


SEC1E 


0182 


0585 


ENOl 


0186 


0586 


CHI 


0187 


0587 


STAT1 


0188 


0588 


CH2 


0189 


0589 


LINE 


018A 


0590 


CI 


018B 


0591 


Fl 


018C 


0600 


SEC2 


018D 


0604 


SEC2A 


0193 


0612 


SEC2B 


019O 


0626 


XCRLF 


01AB 


0627 


EN02 


01AC 


0628 


CNT 


01AD 



0629 



CNT1 



01AE 



0637 


SEC3 


01AF 


0645 


SEC3A 


01RC 


0647 


SEC3B 


01BE 


0649 


SEC3C 


01C0 


0651 


SEC30 


01C2 


0655 


XOUT 


01C6 


0660 


SEC3E 


01CB 


0665 


SEC3F 


Q10Q 


0679 


SEC3G 


01E2 


0695 


SEC3H 


01F5 


0699 


EN03 


01F9 


0700 


INO 


01FA 


0701 


MCODE 


01FB 


0702 


F2 


01FC 


0703 


L2 


01FD 


0710 


SEC4 


01FE 


0716 


SEC4B 


0207 


0718 


SEC4B1 


020A 


0726 


SEC4B2 


0214 


0738 


SEC4C 


0225 


0752 


H808 


023A 


0763 


SEC4F 


024B 


0766 


SEC4G 


024F 


0768 


SEC40 


0253 


0770 


END4 


0256 


0771 


OF 


0257 



0564 
0563 
0559 
0577 
0570 
0627 
0551 
0472 
0552 
0549 
0554 
0408 
1167 
0300 
0620 
0617 
0511 
069B 
0699 
0451 
0600 
0657 



t 0567 



, 0578, 0579 

, 0555, 0560, 0561, 0566 

, 0568, 0569 

, 0557, 0558 

, 0546, 0572, 0574, 0582, 0584 

, 1205 

, 0624 

, 0544, 0573, 0583, 0607, 0660 



, 0503, 0504, 0514, 0524, 0525 
, 0606, 0608, 0621, 0648, 0656 
, 0689, 0749, 0763, 1359, 1360 



0508, 0529, 0530, 0610, 0614, 0615 
0646, 0661, 0662, 0677, 0687, 0715 
0742, 0747, 1170, 1200, 1201, 1376 



0300 






0667 






0664, 


0678 




11659, 


0694 




0556, 


0605, 


0613, 0650, 0652 


0658 






0663 






0669 






0681 






0770 






0640, 


0649, 


0673, 0685 


0642, 


0651, 


0675, 0691 


0644, 


0653, 


0693 


0300 






0724 






072(1 






0726 






0761 






0764 






0744 







, 0729, 0758, 1352 
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0772 


S4 


0258 


0773 


INOl 


0259 


0774 


CNT2 


025A 


0775 


FL1 


0250 


0776 


FL2 


025C 


778 


SEC5K 


0250 


0785 


SEC5 


025F 


0795 


SEC5A2 


026F 


0801 


SEC5A1 


0278 


0808 


SEC5A3 


0283 


0811 


SFC5A 


0288 


0818 


SEC58 


0292 


0819 


SEC5C 


0293 


0835 


SFC50 


02A4 


084Q 


SEC5D1 


02A9 


0846 


XHONT 


02AF 


0849 


SEC5E 


02B2 


0853 


SEC5F 


286 


0857 


SEC5F1 


02B3 


866 


SEC5G 


02C5 


0870 


SEC5H 


02CB 


0877 


SEC5J 


02113 


0884 


EN05 


02OE 


0885 


INTFLG 


02E0 


0886 


RANAOD 


02E1 


0887 


Tl 


02E2 


0888 


RCNT 


Q2E3 


0889 


FL3 


02E4 


0890 


IN02 


02E5 


0891 


RAN 


02E6 


0898 


SEC6 


02E7 


0912 


SEC6A5 


02FC 


0915 


XINTO 


0300 


0918 


SEC6A1 


0304 


0920 


SEC6A 


0307 


0928 


SFC6D 


0312 


0931 


3EC601 


0317 


0944 


SEC6A2 


329 


0948 


SEC63 


032E 


0954 


SEC6C 


0334 


0958 


EN06 


033A 


0959 


WCNT 


0338 


0960 


MRF 


Q33C 


0961 


IND4 


033O 



, 0732, 1340, 1344 

, 0717, 0746, 1356, 1358, 1374, 1375 



, 0637, 0668, 0671, 0696 

, 0638, 0679, 0683, 0697 

, 030 

, 0791 

, 0804 

, 0794 

, 0852 

, 0825, 0828, 0839, 0848 



, 0831 

, 0814, 0835, 0336, 0844 

, 0837 

, 0847, 0850 

, 0865 

, 0861 

, 0876 

, 0875 

, 0958 

, 0710, 0731, 0757, 0800, 0998, 1190 

, 1387 

, 0810, 0818 

, 0829, 0832, 0340 

, 0954, 0859, 0860 

♦ 0785, 0830, 0849, 0851, 0879 

t 0812, 0834, 0838, 0841, 0842, 0843 

, 0856, 0858, 0863, 0864, 0867, 0870 

, 0872 

, 0809, 0821 

t 0300, 0778 

, 0905 

, 0908, 0911, 0996 



, 0934 


, 0953 


, 0946 


, 0950 


, 1028 


, 0846 


, 0949 


, 1099 


, 0236 


, 1006 


, 0919 


, 1021 


, 1489 



, 0869, 0873, 0874, 0943, 0948 

, 1013, 1017, 1018, 1088, 1098 

t 0733, 0740, 0799, 0807, 0999 

, 1335, 1339 

, 0941, 0944, 0951, 1011, 1015 

, 1068, 1084, 1092, 1096, 1246 

, 1490 
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962 


S6 


033E 


0961* 


CNGST 


033F 


0972 


MSTJP 


0348 


0975 


RSTJP 


034A 


0985 


SEC7 


034E 


0994 


SEC7A2 


035C 


1001) 


SFC7A1 


0364 


1007 


SEC7A3 


036E 


1014 


SEC7A 


0379 


1023 


SEC73 


0383 


1028 


EN07 


038C 


1029 


IN03 


0380 


1030 


TEMP 


038E 


10 37 


SEC8 


038F 


1050 


SEC8A4 


03A3 


1065 


SEC80 


03BC 


1069 


SEC8A 


03C3 


1076 


SEC8A5 


03CD 


1079 


SEC8A7 


0302 


1083 


SEC8A6 


0306 


1092 


SEC8A3 


03E6 


1096 


SEC88 


3EC 


1102 


SEC8C 


03F5 


1105 


EN08 


03FA 


1106 


S8 


03FB 


1113 


SEC9 


03FC 


1116 


SEC9A 


0400 


1118 


SEC93 


0403 


1120 


SEC9C 


0405 


1135 


SEC90 


0415 


1142 


SEC9E 


041C 


1150 


EN09 


0427 


1151 


CNT3 


0428 


1152 


CNT4 


0429 


1153 


FL4 


042A 


1154 


COOE 


042B 


1155 


PAT1 


042C 


1156 


PAT2 


0420 


1157 


PAT3 


042E 


1165 


SEC10 


042F 


1172 


H810 


043A 


1174 


SEC10M 


0430 


1178 


SEC109 


0443 


1183 


SEC10C 


0449 


1184 


SEC10O 


044A 


1187 


XSTOP 


0440 


1189 


SEC10F 


044F 


1200 


SEC10G 


045F 


1204 


SEC10H 


0465 


1208 


END10 


0460 


1216 


SEC 11 


046C 



, 0903, 0923, 0955, 1038, 1630 

t 0787, 0899, 0970, 0986, 1039 

, 0965, 0966, 0969, 0976, 977 

, 0883, 0957, 0978, 1027, 1104 

, 0300 

, 0990 

, 1003 

, 0993 

, 1022 

, 1019 

, 1105 

, 0939, 0945, 0952, 1009, 1014, 1020 

, 1086, 1093, 1097, 1248 

, 0300 

, 1046 

, 1057 



, 1082 

1101 

1094 

1100 

1150 

1042, 

0300, 

1133, 

1134 

1129 

1125 

1136 

1208 

1117, 1123, 1124, 1218, 1229, 1230 



!, 1102, 1626 

), 1130, 1140, 1149, 1207 

I, 1141 



1119, 1126, 1127 

1135, 1139, 1143 

1115, 1120, 1138 

1114 

1137 

1227 

0301 

1219 

1203 

1183, 1188 

1180 

1182 

1199, 1238, 1252 

1181 

1196 

1239 

0301 
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1227 


SEC11B 


047C 


1233 


SEC 11C 


0483 


1239 


ENOll 


048 B 


1245 


GERR 


048C 


1260 


INTO 


01*99 


1264 


INTOA 


0490 


1271 


INTOB 


Q4A5 


1274 


WC 


04AA 


1275 


FW 


04AB 


1280 


INT 


04AC 


1283 


XIPS 


04BQ 


1285 


XIPSAV 


04B2 


1290 


INT1 


04B8 


1296 


INT2 


04BE 


1299 


INT2A 


04C1 


1314 


INT3 


0400 


1320 


INT4 


0406 


1326 


INT5 


Q40C 


1332 


INT6 


04E2 


1346 


INT6B 


Q4F4 


1348 


I NT 6 A 


04F6 


1363 


INT6A1 


0503 


1369 


INT6C 


0511 


1372 


INT6D 


0514 


1378 


INT6E 


051E 


1381 


INT6F 


0521 


1386 


INT7 


0526 


1389 


INT7A 


052A 


1390 


INT7B 


052B 


1392 


MOF 


052E 


1393 


S10 


052F 


1394 


S68 


0530 


1395 


EX 


0531 


1396 


STAT2 


0532 


1397 


EOF 


0533 


1398 


ERC 


0534 


1399 


IOF 


0535 


1400 


INTREQ 


0536 


1401 


INTST 


0537 


1402 


EOT 


0538 


1407 


CLRINT 


0539 


1410 


CLRI1 


053D 


1424 


CLRI2 


054E 



1232 

1231 
1235 

0947 
0713 
1063 
1270 
1269 
1263 
1261 
1391 
1238 
1287 



t 1095, 1253 

, 0797, 0915, 1052, 1055, 1060 

, 1273 



, 1267, 1268 
, 1264, 1266 
• 1437 



1292 

1297 

1306 

1316 

1302, 1322 

1328 

1336 

1334 

1345 

1357 

1354 

1373 

1298, 

1295, 

13U?, 

1377 

1362 

0741, 080?, 0806, 1001, 1005, 1337 



>, 1351 

>, 1310, 1313, 1319, 1325, 1331 

>, 1347, 1368, 1371, 1380 



1191, 1206, 1296, 1388 

0786, 0902, 0956, 0985, 1043, 1103 

1307 

1281, 1390 

1224, 1233, 1289, 1290, 1299, 1304 

1314, 1320, 1326, 1348, 1381 

1175, 1195, 1384 

0246, 1294, 1312, 1318, 1324, 1330 

1370, 1379 

0203, 0735, 0755, 0901, 1041, 1147 

1166, 1222, 1364, 1410 

0205, 0727, 0753, 0789, 0988, 1145 

1173, 1220, 1327, 1366 

0898, 0930, 1037, 1078, 1309, 1505 

1148, 1168, 1367, 1385, 1389, 1419 

1427 

1423 

1422 
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1*23 


CLCK 


0553 


1433 


REQ 


0554 


1434 


REQ2 


0555 


1437 


INTSU9 


0558 


1445 


SEL 


055A 


1449 


xniRi 


055E 


1457 


INPA 


0562 


1461 


IN1A 


0567 


1462 


IN1B 


0568 


1463 


INI 


0569 


1475 


IN2 


0575 


1481 


XSTRMT 


057B 


1489 


IN3 


0583 


1492 


IN4 


0588 


1498 


IN6 


058F 


150? 


IN68 


0594 


1505 


IN6A 


0597 


1508 


IN7 


059A 


1512 


SAVE 


059F 


1513 


FIRST 


05A0 


1514 


IN12 


05A1 


1517 


IN12A 


05A4 


1521 


IN12C 


05A8 


1526 


IN12B 


05AO 


1533 


C*LF 


05B0 


1541 


LDR 


0586 


1544 


LOR1 


0509 


1551 


CNT8 


05C1 


1555 


SEL KM 


05C2 


1560 


SEL1 


05C8 


1567 


SEL2 


05CF 


1578 


MODE 


050A 


1585 


WAITIN 


05DB 


1592 


Ml 


05E3 


1607 


W2 


05F1 


1608 


SAVINL 


05F2 


1610 


MANINT 


05F3 


1622 


STRMTN 


05F9 


1630 


SM 


0604 


1634 


SMI 


0609 


1640 


HESS 


060E 


1641 


3HI 


0616 


1644 


BM2 


0637 


1646 


BM3 


0640 


1648 


8M4 


0664 


1652 


BH4A 


067F 


1655 


BM5 


068C 


1658 


INTMSG 


069B 



♦ 1409, 1420, 1421 
, 0201* 0295, 1438 



, 0207, 0737, 0760, 0927, 1075, 1193 

, 1226, 1452 

, 1412, 1435, 1492, 1560 

, 0928, 1076, 1511, 1528 



, 1469 












, 1491 












, 1458, 


1463, 


1470, 


1475 






, 1474 












, 1487 












, 1494, 


1503 










, 1507 












, 1502 












, 1466, 


1471, 


1479, 


1482, 


1484, 


148 8 


» 1516, 


1519, 


1521, 


1522 






, 1467 












, 1501 












, 1520, 


1524 










, 1517 












, 0449, 


0626, 


0750, 


1113, 


1536 




, 0808, 


0877, 


1007, 


1023, 


1550 




, 1549 












♦ 1543, 


1546, 


1547 








, 0793, 


0881, 


0917, 


0936, 


0992, 


1025 


, 10(»8, 


1066, 


1090, 


1559, 


1574, 


1575 


, 1576, 


1577 










, 1564 












, 1570 












, 1556, 


1565, 


1571 








, 0882, 


0937, 


1026, 


10E*9, 


1064, 


1091 


, 1605 












, 1594, 


1602 










, 1595, 


1597 










, 1587, 


1603 










, 1538, 


1591, 


1600, 


1615 






, 1481, 


1498, 


1629, 


1633, 


1638 




, 1625 












, 1627 












, 0509 












, 0711, 


1061 










, 0795 












, 0994 












, 0906, 


1050, 


1058 








, 0912, 


1053 










, 3 90 9 












, 0196, 


0197 











60220500 F 



PAGE 56 



"> .'" ^ 



O "O o o 



n n r 



C 





TTY005 




PAGE 


57 




OATEt 10/20/75 




1672 


INTMGE 


0720 




, 0197 








1673 


BLOCK 


072E 




, 0716, 
* 1010, 


07*5, 
1085 


0811, 0855, 0866, 


0938 


167* 


BLOCK1 


0807 




, 0918, 


09<t0, 


1067, 1083 




1676 


INIT05 


08B1 




, 0110 








1690 


TYPEIA 


08C2 




, 1686, 


1687 






1696 


FREQCN 


08E5 




, 1680, 


1681, 


1685 




1697 


ENQTYP 


08E9 




, 1687 
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ACT 


361 


ALINE 


0113 


BITO 


0141 


BITOO 


0140 


BIT1 


0142 


BIT10 


0151 


BITil 


0152 


BIT12 


015 3 


BIT13 


0154 


BIT14 


0155 


BIT15 


0156 


3IT2 


0143 


BTT3 


0144 


BIT4 


0145 


BIT5 


0146 


8IT6 


0147 


BIF7 


0148 


BTTfl 


0149 


BIT9 


0150 


BLOCK 


1673 


8LOCK1 


1574 


BM1 


1641 


BM2 


164«i 


3M3 


1646 


9M4 


1648 


BM4A 


1652 


8M5 


1655 


CI 


0590 


CERR 


1245 


CHI 


0586 


CH2 


0588 


CHAR 


0439 


CH3SY 


0229 


CH3SY2 


0247 


CHBSY3 


0235 


CLCK 


1428 


CLROI 


0185 


CLRI1 


1410 


CLRI2 


1424 


CLRINT 


1407 


CLRND 


0183 


CNGST 


0964 


CNT 


0628 


CNT1 


0629 


3NT2 


774 


CNT3 


1151 


CNT4 


1152 


CNT8 


1551 


CODE 


1154 


CON 


0306 


CONST 


0176 


CONTRO 


0119 


CONVER 


0180 


COUNTR 


0220 


CRLF 


1533 


DATA1 


0363 


0ATA2 


0364 


OF 


0771 


DIRO 


0441 


HIR1 


0442 


OLINE 


0112 


END 


0252 


ENOO 


0536 


ENOl 


0585 


ENOIO 


1208 


ENOll 


1239 


EN02 


0627 


EN03 


0699 


END4 


0770 


END5 


0884 


END6 


0958 


EN37 


1028 


END* 


1105 


EN09 


1150 


ENOTST 


0283 


ENOTYP 


1697 


ENTERS 


0187 


ENTRY 


0212 


EOF 


1397 


EOPL 


0114 


EOT 


1402 


EQUIP 


0111 


ERC 


1398 


ET1 


0290 


ET2 


0296 


EX 


1395 


EXIT 


0121 


EXP 


0362 


Fl 


0591 


F2 


0702 


FCLRIN 


0123 


FIRST 


1513 


FL1 


P775 


FL2 


0776 


FL3 


0889 


FL4 


1153 


F^EQCN 


1696 


FW 


1275 


GENRAN 


0125 


HOOOO 


0157 


H000F 


0159 


H007F 


0172 


H00F0 


0160 


HOOFF 


0163 


H0780 


0171 


H0F00 


0161 


HOFFF 


0166 


H2020 


0173 


H7F0O 


0170 


H7FFF 


0169 


H808 * 


0752 


H810 


1172 


HEXA5C 


0128 


HF000 


0162 


HFOFF 


0168 


HFFOO 


0164 


HFFOF 


0167 


HFFFO 


0165 


HFFFF 


0158 


I 


0000 


10 


0358 


INI 


1463 


IN12 


151^ 


IN12A 


1517 


IN12B 


1526 


IN12C 


1521 


IN1A 


1461 


IN1B 


1462 


IN2 


1475 


IN3 


1489 


IN4 


1492 


IN6 


1498 


IN6A 


1505 


IN6B 


1502 


IN7 


1508 


INO 


0700 


INOl 


0773 


IND2 


0890 


IND3 


1029 


IN04 


961 


IND5 


0537 


INFORM 


0138 


INIT05 


1676 


INPA 


1457 


INT 


1280 


INT1 


1290 


INT2 


1296 


INT2A 


1299 


INT3 


1314 


I NT 4 


1320 


INT5 


1326 


INT6 


1332 


INT6A 


1348 


INT6A1 


1363 


INT6B 


1346 


INT6C 


1369 


INT6D 


1372 


INT6E 


1378 


INT6F 


1381 


INT7 


1386 


INT7A 


1389 


INT7B 


1390 


INTFLG 


0885 


INTMGE 


1672 


INTMSG 


1658 


INTO 


1260 


INTOA 


1264 


INTOB 


1271 


INTREQ 


1400 


INTST 


1401 


INTSUB 


1437 


IOF 


1399 


IPS 


0388 


IPS1 


0393 


IPS2 


0394 


IPS3 


0398 


JUMP 


0124 


L2 


0703 


LASTAO 


013 5 


LASTVA 


0134 


LDL1C0 


0137 


LOLCOR 


0136 


LOR 


1541 


LOR1 


1544 


LINE 


0589 


MATNL 


0131 


MANINT 


1610 


MCOOi 


0701 


MESS 


1640 


MESSAG 


0181 


MOO 


0221 


MODI 


0224 


MODE 


1578 


MOF 


1392 


MRF 


0960 


MSTJP 


0972 


01 


0330 


02 


332 


03 


0335 


04 


0336 


OPF 


0328 


OUT 


0406 


OUT1 


0418 


OUT1A 


0415 


0UT2 


0421 


0UT3 


0426 


0UT4 


0427 


OUTS 


0431 


0UT6 


0438 


OVRLAY 


0129 


PAR 


0316 


PARI 


0321 


PA3A0R 


0109 


PASS 


0289 


PAT 


0440 


PAT1 


1155 


PAT2 


1156 


PAT3 


1157 


PPG RET 


0248 


RAN 


891 


RANAOO 


0886 


RANDOM 


0179 


ROM 


0369 


RCNT 


0888 


RELPOS 


0130 


REQ 


1433 


RE02 


1434 


REQOI 


0184 


REQINT 


0122 


REQND 


0182 


RETADR 


0360 


RETURN 


0110 


RSTJP 


0975 


S10 


1393 


S4 


0772 


S6 


0962 


S68 


1394 


S8 


1106 


SAVE 


1512 


SAVINL 


1608 


SEC 


0311 


SECO 


0449 


SECOA 


0452 


SECOB 


0453 


SECOC 


0460 


SECOD 


0471 


SECOF 


0479 


SEC03 


0484 


SECOH 


0491 


SECOJ 


0500 
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SECOK 


0507 


SESOL 


0513 


SE30M 


0515 


SECON 


0517 


SECOP 


0524 


SEC1 


054*1 


SEC10 


1165 


SEC108 


1178 


SEC10C 


118 3 


SEC100 


1184 


SECIOF 


1189 


SEC10G 


1200 


SEC10H 


1204 


SEC1QM 


1174 


SEC11 


1216 


SEC11B 


1227 


SEC11C 


1233 


SEQ1A 


0552 


SEC1B 


0555 


SEC1C 


0565 


SEC10 


0568 


SEC1E 


0581 


SEC1F 


0579 


SEC2 


0600 


SEC2A 


0604 


SEC28 


0612 


SEC3 


0637 


SFS3A 


0645 


SEC3B 


0647 


SEC3C 


0649 


SFC3D 


0651 


SEC3E 


0660 


SEC3F 


0665 


SEC3G 


0679 


SEC3H 


0695 


SEC4 


0710 


SEC4B 


0716 


SEC4B1 


0718 


SEC4B2 


0726 


SEC4C 


0738 


SEC4D 


0768 


SEC4F 


0763 


SEC4S 


0766 


SEC5 


0785 


SEC5A 


0811 


SEC5A1 


0801 


SEC5A2 


0795 


SEC5A3 


0808 


SEC5B 


0818 


SEC5C 


0819 


SEC50 


835 


SEC501 


0840 


SEC5E 


0849 


SEC5F 


0853 


SEC5F1 


0857 


SEC5G 


0866 


SEC5H 


0870 


SES5J 


0877 


SEC5K 


0778 


SEC6 


0898 


SEC6A 


0920 


SEG6A1 


0918 


SEC6A2 


944 


SEC6A5 


0912 


SEC68 


0948 


SEC6C 


0954 


SEC60 


0928 


SEC631 


0931 


SFC7 


0985 


SEC7A 


1014 


SEC7A1 


1000 


SEC7A2 


0994 


SEC7A3 


1007 


SEC73 


1023 


SEC8 


1037 


SEC8A 


1069 


SEC8A3 


1092 


SEC8A4 


1050 


SEC8A5 


1076 


SEC8A6 


1083 


SEC8A7 


1079 


SEC88 


1096 


SEG83 


1102 


SEC80 


1065 


SEC9 


1113 


SEC9A 


1116 


SEC9B 


1118 


SEC90 


nao 


SEC90 


1135 


SEC9E 


1142 


SECAO 


0300 


SECERR 


0359 


SECT 


0258 


SEC TO 


0259 


SECT1 


0268 


SECT2 


0272 


SECT3 


27 3 


SECTNS 


0219 


SECX 


25 


SEL 


1445 


SELi 


1560 


SEL2 


1567 


SELKM 


1555 


SETMAS 


0132 


SJPAR 


0178 


SM 


1630 


SMI 


1634 


SMMCNT 


0139 


SMMPAR 


0177 


STAT1 


0587 


STAT2 


1396 


STJP 


013 3 


STOAOR 


0354 


STOP 


0344 


STOPX 


0120 


STRHTN 


1622 


Tl 


0887 


TEMP 


1030 


TSACTV 


0174 


TSFREQ 


0175 


TTY005 


0107 


TTYBZY 


0127 


TYPEIA 


1690 


TYPEOU 


0126 


Ml 


1592 


W2 


1607 


WAITIN 


1585 


WC 


1274 


WCNT 


0959 


WNB 


377 


XCRLF 


0626 


X0IR1 


1449 


XERC 


0246 


XF1 


0408 


XTNTO 


0915 


XIPS 


1283 


XIPSAV 


1285 


XOUT 


0655 


XSTAT1 


0472 


XSTOP 


1187 


XSTRMT 


1481 


XTTYQO 


0214 


XWCNT 


0846 











60220500 



PAGE 59 



' 1 

z 

3 

C s 



COMMENT SHEET 

MANUAL t,t. f CONTROL DATA SMM17 PROGRAM LISTINGS. TTY 
Customer Engineering Manual 



PUBLICATION NO. 



60220500 



REVISION. 



F 



FROM: 



name: 



business 
address:. 



COMMENTS: 

This form is not intended to be used as an order blank. Your evaluation of this manual will be welcomed 
by Control Data Corporation. Any errors, suggested additions or deletions, or general comments may 
be made below. Please include page number references and fill in publication revision level as shown by 
the last entry on the Record of Revision page at the front of the manual. Customer engineers are urged 
to use the TAR. 



NO POSTAGE STAMP NECESSARY IF MAILED IN U. S. A. 

FOLD ON DOTTED LINES AND STAPLE 



STAPLE 



STAPLE 



FOLD 



FOLD 



FOLD 



FIRST CLASS 
PERMIT NO. 8241 



MINNEAPOLIS, MINN. 



BUSINESS REPLY MAIL 

NO POSTAGE STAMP NECESSARY IF MAILED IN U.S.A. 



POSTAGE WILL BE PAID BY 



CONTROL DATA CORPORATION 

Technical Publications Department 
4201 North Lexington Avenue 
Arden Hills, Minnesota 55112 




FOLD 



c 



> 



Z 
O 

z 
o 
< 

I- 
u 



c 

c 



CONTROL DATA 



jp 

lift 



► ► CUT OUT FOR USE AS LOOSE-LEAF BINDER TITLE TAB 



(' ~) 



r~ 



\ » 



V..-- 






V... 



Cr 



CONTROL DATA 



itigiat: 



WMSM 8100 34th AVE. SO., MINNEAPOLIS, MINN. 55440 



O 



MINTED IN U.S.A. 



L. 



